[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