Mailing List Archive

[interchange] Fix "once" warnings in Vend::CounterFile
commit 890b9ea2a385480e59d7abc40161923eece0b3a4
Author: David Christensen <david@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();


_______________________________________________
interchange-cvs mailing list
interchange-cvs@icdevgroup.org
http://www.icdevgroup.org/mailman/listinfo/interchange-cvs