|
Lines 2605-2615
Link Here
|
| 2605 |
|
2605 |
|
| 2606 |
sub parse_prepare { |
2606 |
sub parse_prepare { |
| 2607 |
my ($self, $pattern) = @_; |
2607 |
my ($self, $pattern) = @_; |
| 2608 |
$pattern = "^\Q$pattern\E\$"; |
2608 |
$pattern = "^\Q$pattern\E\$"; |
| 2609 |
# unquote %. and %=. and %={WHATEVER} and %{WHATEVER} |
2609 |
# unquote %. and %=. and %={WHATEVER} and %{WHATEVER} |
| 2610 |
$pattern =~ s<(\\%(?:\\=)?(\w|\\{(?:\w|\\[^\w\\{}]|\\\\\\[\\{}])*\\}|\\\W))> |
2610 |
$pattern =~ s<(\\%(?:\\=)?(\w|\\\{(?:\w|\\[^\w\\\{\}]|\\\\\\[\\\{\}])*\\\}|\\\W))> |
| 2611 |
( __unquote($1) )ge; |
2611 |
( __unquote($1) )ge; |
| 2612 |
# $pattern =~ s/(\\%(?:\\=)?)(\w|\\(\W))/$unquote{$1}$+/g; |
2612 |
# $pattern =~ s/(\\%(?:\\=)?)(\w|\\(\W))/$unquote{$1}$+/g; |
| 2613 |
return $self->parse_rex_prepare($pattern); |
2613 |
return $self->parse_rex_prepare($pattern); |
| 2614 |
} |
2614 |
} |
| 2615 |
|
2615 |
|
