Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

case-insensitive regexp bug in perl 5.17.x?

by karpet (Acolyte)
on Sep 20, 2012 at 15:09 UTC ( #994681=perlquestion: print w/ replies, xml ) Need Help??
karpet has asked for the wisdom of the Perl Monks concerning the following question:

This test demonstrates code that has worked for me until 5.17.0. It fails in 5.17.0 and higher.
#!/usr/bin/env perl use strict; use warnings; use Test::More tests => 2; my $str = ' Foo '; # uppercase breaks 2nd regex my $pattern = 'foo'; utf8::upgrade($str); utf8::upgrade($pattern); my $re = qr/$pattern/i; my $re_optional = qr/(?i:.?)$pattern/i; like( $str, $re, "re" ); like( $str, $re_optional, "re_optional" );
Am I missing something?

Comment on case-insensitive regexp bug in perl 5.17.x?
Download Code
Re: case-insensitive regexp bug in perl 5.17.x?
by sth (Priest) on Sep 20, 2012 at 15:57 UTC
    Did you post to P5P list? That is a development version, so you should probably post the question there. Also 5.17.4 was released, you could try with that version (if you haven't already).
      Thanks. Opened RT ticket via perlbug.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://994681]
Front-paged by Corion
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (11)
As of 2015-01-28 21:59 GMT
Find Nodes?
    Voting Booth?

    My top resolution in 2015 is:

    Results (226 votes), past polls