p5pRT
commented
18 years ago From sue@inf.ed.ac.uk
Created by sue@inf.ed.ac.uk
This is a short test script showing what I believe to be a bug.
=====================begin script #!/usr/bin/perl
$regex = 'aeiou'; $compiled_regex = qr/$regex/;
$string = 'ae_ai_';
#should not match either string - the final regex should fail as it should match aeiou only\, not _
if ($string =~ /^([^\_]+)\_([$regex])([$regex])([$regex])$/) { print STDERR "PLAIN MATCHED '$&'\, '$1' and graphemes '$2'\, '$3' and '$4' \n"; }
if ($string =~ /^([^\_]+)\_([$compiled_regex])([$compiled_regex])([$compiled_regex])$/) { print STDERR "COMPILED MATCHED '$&'\, '$1' and graphemes '$2'\, '$3' and '$4'\, using $compiled_regex\n"; } ==================end script
As the comment says\, the variable $string should not match the regexes; it correctly does not match the uncompiled version\, but incorrectly does match the compiled version\, somehow matching underscore with the compiled 'aeiou'.
Migrated from rt.perl.org#40648 (status was 'rejected')
Searchable as RT40648$