This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PATCH: [perl #117327]: Sequence (?#...) not recognized in regex
[perl5.git] / t / re / pat.t
index 11ae2d3..05bb650 100644 (file)
@@ -20,7 +20,7 @@ BEGIN {
     require './test.pl';
 }
 
     require './test.pl';
 }
 
-plan tests => 466;  # Update this when adding/deleting tests.
+plan tests => 467;  # Update this when adding/deleting tests.
 
 run_tests() unless caller;
 
 
 run_tests() unless caller;
 
@@ -1342,6 +1342,13 @@ EOP
        ok("Perl" =~ /P.*$/i, '#116148');
     }
 
        ok("Perl" =~ /P.*$/i, '#116148');
     }
 
+    { # 117327: Sequence (?#...) not recognized in regex
+      # The space between the '(' and '?' is now deprecated; this test should
+      # be removed when the deprecation is made fatal.
+        no warnings;
+        like("ab", qr/a( ?#foo)b/x);
+    }
+
 
 } # End of sub run_tests
 
 
 } # End of sub run_tests