X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FFile%2FCheckTree.pm;h=35f7906e538a820ede9196785879b3258fa36018;hb=b395063c4500baaa5d9b1c18d28abaadc275a05c;hp=8b6ae0805a4cde59d03a5fb071dc83336ab77222;hpb=24c02676028cab802cb347f1affa7f30893cac1c;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/File/CheckTree.pm b/lib/File/CheckTree.pm
index 8b6ae08..35f7906 100644
--- a/lib/File/CheckTree.pm
+++ b/lib/File/CheckTree.pm
@@ -2,8 +2,9 @@ package File::CheckTree;
 
 our $VERSION = '4.1';
 
-require 5.000;
+require 5.6.0;
 require Exporter;
+use warnings;
 
 =head1 NAME
 
@@ -49,6 +50,7 @@ our @EXPORT = qw(validate);
 
 sub validate {
     local($file,$test,$warnings,$oldwarnings);
+    $warnings = 0;
     foreach $check (split(/\n/,$_[0])) {
 	next if $check =~ /^#/;
 	next if $check =~ /^$/;