The [perl #7471] seems to have been fixed; add its test.

p4raw-id: //depot/perl@18631

diff --git a/t/op/pat.t b/t/op/pat.t
index 7386f26..b4349b6 100755 (executable)
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -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}){1}/, "[perl #15397]");
 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