[svn:parrot] r38714 - in trunk: . t/codingstd

[coke at svn.parrot.org]

Author: coke
Date: Tue May 12 14:11:07 2009
New Revision: 38714
URL: https://trac.parrot.org/parrot/changeset/38714

Log:
[t] Make RE's work in both 5.8.8 <-> 5.8.9 
 Courtesy cxreg++

Modified:
   trunk/CREDITS
   trunk/t/codingstd/copyright.t

Modified: trunk/CREDITS
==============================================================================
--- trunk/CREDITS	Tue May 12 13:58:54 2009	(r38713)
+++ trunk/CREDITS	Tue May 12 14:11:07 2009	(r38714)
@@ -272,6 +272,9 @@
 D: imcc optimizer and register allocator patches and tests
 E: cgrawls at gmail.com
 
+U: cxreg
+D: copyright test cleanup
+
 N: Damian Miles Knopp
 U: dmknopp
 E: dmknopp at loyola.edu

Modified: trunk/t/codingstd/copyright.t
==============================================================================
--- trunk/t/codingstd/copyright.t	Tue May 12 13:58:54 2009	(r38713)
+++ trunk/t/codingstd/copyright.t	Tue May 12 14:11:07 2009	(r38714)
@@ -51,7 +51,7 @@
 my $copyright_simple =
     qr/Copyright \(C\) \d{4}/i;
 my $copyright_parrot =
-    qr/Copyright \(C\) (?:\d{4}\-)?\d{4}, Parrot Foundation\.$/m;
+    qr/Copyright \(C\) (?:\d{4}\-)?\d{4}, Parrot Foundation\.$/;
 
 foreach my $file (@files) {
 
@@ -69,7 +69,7 @@
 
     # is the copyright text correct?
     # If so, remove it...
-    if ( ! ($buf =~ s/$copyright_parrot//) ) {
+    if ( ! ($buf =~ s/$copyright_parrot//m) ) {
         push @bad_format_copyright_files, $path;
     }
     # ... and then see if any other copyright notices exist.