Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

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 the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (2)
As of 2020-10-26 07:07 GMT
Find Nodes?
    Voting Booth?
    My favourite web site is:

    Results (250 votes). Check out past polls.