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
 
 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.
 
 
 will be warning free regardless of what $ref actually is.