[svn:parrot] r44308 - trunk/lib/Parrot

[coke at svn.parrot.org]

Author: coke
Date: Mon Feb 22 21:26:27 2010
New Revision: 44308
URL: https://trac.parrot.org/parrot/changeset/44308

Log:
This check was also broken for perl files.

Modified:
   trunk/lib/Parrot/Distribution.pm

Modified: trunk/lib/Parrot/Distribution.pm
==============================================================================
--- trunk/lib/Parrot/Distribution.pm	Mon Feb 22 21:12:07 2010	(r44307)
+++ trunk/lib/Parrot/Distribution.pm	Mon Feb 22 21:26:27 2010	(r44308)
@@ -537,7 +537,7 @@
 
     # test files (.t) might need testing.
     # ignore everything else.
-    return 0 unless $filename !~ /\.t$/;
+    return 0 if $filename !~ /\.t$/;
 
     # Now let's check to see if there's a perl shebang.