Fix "once" warnings in Vend::CounterFile

interchange · Jun 22, 2017 · 890b9ea · 890b9ea
1 parent 52cac90
commit 890b9ea
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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();