Change 33686 by [EMAIL PROTECTED] on 2008/04/15 12:43:02
Add a regression test for bug #52658 (fixed by change #33685)
based on code by Wolf-Dietrich Moeller
Affected files ...
... //depot/perl/t/op/pat.t#309 edit
Differences ...
==== //depot/perl/t/op/pat.t#309 (xtext) ====
Index: perl/t/op/pat.t
--- perl/t/op/pat.t#308~33325~ 2008-02-17 08:53:27.000000000 -0800
+++ perl/t/op/pat.t 2008-04-15 05:43:02.000000000 -0700
@@ -4595,6 +4595,14 @@
iseq("@plus","bla blubb",'$+ inside of (?{}) works as expected');
}
+# test for bug #52658
+{
+ my $reg = '../xxx/';
+ my @te = ($reg =~ m{^(/?(?:\.\./)*)}, $reg =~ s/(x)/'b'/eg > 1 ? '##' :
'++');
+ #print "with bug: (0)=$te[0] (1)=$te[1] reg=$reg\n";
+ iseq($reg, '../bbb/');
+ iseq($te[0], '../');
+}
@@ -4659,7 +4667,7 @@
# Don't forget to update this!
BEGIN {
- $::TestCount = 4029;
+ $::TestCount = 4031;
print "1..$::TestCount\n";
}
End of Patch.
