Change 18631 by jhi@kosh on 2003/02/02 15:26:10
The [perl #7471] seems to have been fixed; add its test.
Affected files ...
... //depot/perl/t/op/pat.t#189 edit
Differences ...
==== //depot/perl/t/op/pat.t#189 (xtext) ====
Index: perl/t/op/pat.t
--- perl/t/op/pat.t#188~18630~ Sun Feb 2 07:21:23 2003
+++ perl/t/op/pat.t Sun Feb 2 07:26:10 2003
@@ -6,7 +6,7 @@
$| = 1;
-print "1..977\n";
+print "1..979\n";
BEGIN {
chdir 't' if -d 't';
@@ -3067,5 +3067,12 @@
ok("\x{100}\x{100}" =~ /(\x{100}){2}/, "[perl #15397]");
ok("\x{100}\x{100}" =~ /(\x{100})(\x{100})/, "[perl #15397]");
-# last test 977
+$x = "CD";
+$x =~ /(AB)*?CD/;
+ok(!defined $1, "[perl #7471]");
+
+$x = "CD";
+$x =~ /(AB)*CD/;
+ok(!defined $1, "[perl #7471]");
+# last test 979
End of Patch.
