mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 21:25:42 -04:00
trying to make /i work right
This commit is contained in:
parent
06cf9f2244
commit
6def2adcf4
1 changed files with 1 additions and 1 deletions
|
@ -338,7 +338,7 @@ sub _fact_substitute
|
|||
}
|
||||
else
|
||||
{
|
||||
my $regex = $flags=~/i/ ? qr/$match/i : qr/$match/;
|
||||
my $regex = $flags=~/i/ ? qr/(?i)$match/ : qr/$match/;
|
||||
|
||||
if ($pred =~ m/$regex/)
|
||||
{
|
||||
|
|
Loading…
Add table
Reference in a new issue