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 (?^...)
authorKarl Williamson <public@khwilliamson.com>
Tue, 21 Sep 2010 01:16:24 +0000 (19:16 -0600)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 23 Sep 2010 05:56:54 +0000 (22:56 -0700)
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.