fix problem with Perl version 5.14

diff --git a/.perlcriticrc b/.perlcriticrc
index 779fbe00bb2e7fede121ec77fb0aef5730f91a6a..6cd6b6bc2e6b126cc71b5e7b4b3220a0ff50ff9e 100644 (file)
--- a/.perlcriticrc
+++ b/.perlcriticrc
@@ -94,6 +94,10 @@ verbose = %f: [%p] %m at line %l, column %c.\n
 # Following is a list of policies to be skipped for severity=2:
 #--------------------------------------------------------------
 
+# Following this policy caused a parsing error in Perl version 5.14 at
+# file test operators.
+[-BuiltinFunctions::ProhibitUselessTopic]
+
 # Do not change any debugged regular expressions without good reason
 [-RegularExpressions::RequireDotMatchAnything]
 [-RegularExpressions::RequireLineBoundaryMatching]

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index 7690597938d5b78d918f2f09c99947f505312a89..9e2975893aa05d68d54b558b61c7a0299290c6a4 100644 (file)
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -946,8 +946,7 @@ EOM
         @ARGV =
           map  { $_->[0] }
           sort { $a->[1] <=> $b->[1] }
-          map  { [ $_, -e ? -s : 0 ] } @ARGV;
-        ##map  { [ $_, -e $_ ? -s $_ : 0 ] } @ARGV;
+          map  { [ $_, -e $_ ? -s $_ : 0 ] } @ARGV;
     }
 
     my $number_of_files = @ARGV;