Subject: | quotemeta needed in several places |
The author of perlindex also needed this in a few places,
anyway, in Tk-Pod-0.9922
Text.pm line 413 should be
unless ( defined $file and ($file =~ /\Q$man\E\.\w+$/ or $file eq $man) );
FindPods.pm line 152 should be
(my $name = $File::Find::name) =~ s|^\Q$curr_dir/?||;
FindPods.pm lines 321-325 should be
$path =~ /^(
\Q$Config{'installsitelib'}\E
|
\Q$Config{'installsitearch'}\E
)/x;