[svn:parrot] r37618 - trunk/t/examples

coke at svn.parrot.org coke at svn.parrot.org
Sat Mar 21 18:14:59 UTC 2009


Author: coke
Date: Sat Mar 21 18:14:58 2009
New Revision: 37618
URL: https://trac.parrot.org/parrot/changeset/37618

Log:
[t] When parsing language blocks to test, force an exact match.
=begin PIR     #works
=begin PIR - TT #428 # dosn't bother

Modified:
   trunk/t/examples/pod.t

Modified: trunk/t/examples/pod.t
==============================================================================
--- trunk/t/examples/pod.t	Sat Mar 21 17:47:07 2009	(r37617)
+++ trunk/t/examples/pod.t	Sat Mar 21 18:14:58 2009	(r37618)
@@ -60,7 +60,7 @@
     }
 
     my @snippets;
-    while ($contents =~ /^=begin (PIR|PASM)(.*?)^=end \1$/smg) {
+    while ($contents =~ /^=begin (PIR|PASM)$(.*?)^=end \1$/smg) {
         push @snippets, {
             file => $file,
             type => $1,


More information about the parrot-commits mailing list