Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister

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
[Discipulus]: April: the Perl Tk official month..

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (3)
As of 2018-04-24 07:15 GMT
Find Nodes?
    Voting Booth?