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

[coke at svn.parrot.org]

Author: coke
Date: Mon Feb 22 21:12:07 2010
New Revision: 44307
URL: https://trac.parrot.org/parrot/changeset/44307

Log:
Fix the sense of this check .

This means a lot of previously untested pir-based .t files are going
to start failing various codingstd tests.

Modified:
   trunk/lib/Parrot/Distribution.pm

Modified: trunk/lib/Parrot/Distribution.pm
==============================================================================
--- trunk/lib/Parrot/Distribution.pm	Mon Feb 22 21:10:37 2010	(r44306)
+++ trunk/lib/Parrot/Distribution.pm	Mon Feb 22 21:12:07 2010	(r44307)
@@ -608,7 +608,7 @@
 
     # test files (.t) files 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 plain parrot shebang.
     open my $file_handle, '<', $filename