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

jkeenan at svn.parrot.org jkeenan at svn.parrot.org
Sat Apr 3 00:46:43 UTC 2010


Author: jkeenan
Date: Sat Apr  3 00:46:43 2010
New Revision: 45389
URL: https://trac.parrot.org/parrot/changeset/45389

Log:
Exclude files with '#! parrot-nqp' shebang lines from list of files reported
as PIR and therefore subjected to PIR coda codingstd test.

Modified:
   trunk/lib/Parrot/Distribution.pm

Modified: trunk/lib/Parrot/Distribution.pm
==============================================================================
--- trunk/lib/Parrot/Distribution.pm	Fri Apr  2 23:13:07 2010	(r45388)
+++ trunk/lib/Parrot/Distribution.pm	Sat Apr  3 00:46:43 2010	(r45389)
@@ -614,7 +614,7 @@
     my $line = <$file_handle>;
     close $file_handle;
 
-    if ( $line && $line =~ /^#!.*parrot/ ) {
+    if ( $line && $line =~ /^#!.*parrot(?:\s|$)/ ) {
         # something that specifies a pir or pbc is probably a HLL, skip it
         return 0 if $line =~ /\.(?:pir|pbc)/;
         return 1;


More information about the parrot-commits mailing list