Change 33107 by [EMAIL PROTECTED] on 2008/01/29 17:04:46
Integrate:
[ 29301]
Subject: [PATCH] Study SUSPEND (and recursion) properly
From: demerphq <[EMAIL PROTECTED]>
Date: Thu, 16 Nov 2006 20:32:11 +0100
Message-ID: <[EMAIL PROTECTED]>
[just the tests, which pass here already]
Affected files ...
... //depot/maint-5.8/perl/t/op/pat.t#49 integrate
Differences ...
==== //depot/maint-5.8/perl/t/op/pat.t#49 (xtext) ====
Index: perl/t/op/pat.t
--- perl/t/op/pat.t#48~32394~ 2007-11-18 14:16:34.000000000 -0800
+++ perl/t/op/pat.t 2008-01-29 09:04:46.000000000 -0800
@@ -3805,6 +3805,18 @@
ok( "A${c}B" =~ /A[\0-\x{10000}]B/, "unicode range - $x");
}
}
+{
+ my $spaces=" ";
+ local $_=join 'bar',$spaces,$spaces;
+ our $count=0;
+ s/(?>\s+bar)(?{$count++})//g;
+ iseq($_,$spaces,"SUSPEND final string");
+ iseq($count,1,"Optimiser should have prevented more than one match");
+}
+
+# Test counter is at bottom of file. Put new tests above here.
+#-------------------------------------------------------------------
+# Keep the following tests last -- they may crash perl
# [perl #45337] utf8 + "[a]a{2}" + /$.../ = panic: sv_len_utf8 cache
@@ -3815,5 +3827,6 @@
ok("aaa" =~ /$s/, "#45337");
}
-# Don't forget to update this!
-BEGIN{print "1..1268\n"};
+# Put new tests above the dotted line about a page above this comment
+
+BEGIN{print "1..1270\n"};
End of Patch.
