[interchange] Fix "once" warnings in Vend::CounterFile

David Christensen interchange-cvs at icdevgroup.org
Thu Jun 22 18:23:25 UTC 2017


commit 890b9ea2a385480e59d7abc40161923eece0b3a4
Author: David Christensen <david at endpoint.com>
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();
 



More information about the interchange-cvs mailing list