[interchange] Fix "once" warnings in Vend::CounterFile
David Christensen <[email protected]> Thu, 22 Jun 2017 18:23:25 +0000
| Newsgroups | gmane.comp.web.interchange.cvs |
|---|---|
| Message-ID | <[email protected]> |
commit 890b9ea2a385480e59d7abc40161923eece0b3a4 Author: David Christensen <[email protected]> Date: Thu Jun 22 12:55:39 2017 -0500 Fix "once" warnings in Vend::CounterFile lib/Vend/CounterFile.pm | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) --- diff --git a/lib/Vend/CounterFile.pm b/lib/Vend/CounterFile.pm index 26d7035..e337e4a 100644 --- a/lib/Vend/CounterFile.pm +++ b/lib/Vend/CounterFile.pm @@ -387,6 +387,7 @@ sub DESTROY # eval and __END__ so that error line numbers make more sense. package main; +no warnings 'once'; eval join('',<DATA>) || die $@ unless caller();