Enable warnings in File::* (was: B::Terse and warnings)

[p5sagit/p5-mst-13.2.git] / lib / File / CheckTree.pm

diff --git a/lib/File/CheckTree.pm b/lib/File/CheckTree.pm
index 8b6ae08..35f7906 100644 (file)
--- 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 =~ /^$/;