diff options
Diffstat (limited to 'ext/re')
| -rw-r--r-- | ext/re/re.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/re/re.pm b/ext/re/re.pm index 9341feb746..2d6784a6a6 100644 --- a/ext/re/re.pm +++ b/ext/re/re.pm @@ -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. |