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?

Replies are listed 'Best First'.
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 all is quiet...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (7)
As of 2017-02-28 18:24 GMT
Find Nodes?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?

    Results (407 votes). Check out past polls.