This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
re.pm: Change comment to use new (?^...)
[perl5.git] / ext / re / re.pm
index 9341feb..2d6784a 100644 (file)
@@ -415,7 +415,7 @@ C<qr//> with the same pattern inside.  If the argument is not a compiled
 reference then this routine returns false but defined in scalar context,
 and the empty list in list context. Thus the following
 
-    if (regexp_pattern($ref) eq '(?i-xsm:foo)')
+    if (regexp_pattern($ref) eq '(?^i:foo)')
 
 will be warning free regardless of what $ref actually is.