summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2012-05-19 00:02:18 +0000
committerNorbert Preining <preining@logic.at>2012-05-19 00:02:18 +0000
commit3efcf23fd7d8e49cf077b00b84ed4894f1110135 (patch)
treeeca8e3d09483eebe6619ca035b5250a33acf358a /Master
parentf070815a17838df0a910026e478f8acfb4dcd3df (diff)
quote strings returned from kpsewhich in regexp matching
git-svn-id: svn://tug.org/texlive/trunk@26489 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/texmf/scripts/tetex/updmap.pl10
1 files changed, 5 insertions, 5 deletions
diff --git a/Master/texmf/scripts/tetex/updmap.pl b/Master/texmf/scripts/tetex/updmap.pl
index a5f1c683fb4..99e939a8236 100755
--- a/Master/texmf/scripts/tetex/updmap.pl
+++ b/Master/texmf/scripts/tetex/updmap.pl
@@ -228,7 +228,7 @@ sub main {
for my $f (@all_files) {
# make sure that all file names are lower case on windows for comparison
$f = lc($f) if win32();
- if ($f =~ m!$TEXMFROOT/texmf/web2c/updmap.cfg!) {
+ if ($f =~ m!\Q$TEXMFROOT\E/texmf/web2c/updmap.cfg!) {
warning("Ignoring $f, it is only a sample file!\n");
} else {
push @used_files, $f;
@@ -251,7 +251,7 @@ sub main {
if ($TMLabs) {
for my $f (@used_files) {
my $absf = Cwd::abs_path($f); #should always work
- if ($absf =~ m/^$TMLabs/) {
+ if ($absf =~ m/^\Q$TMLabs\E/) {
$found = 1;
last;
}
@@ -274,7 +274,7 @@ sub main {
my @tmp;
my $local_pushed = 0;
for my $f (@used_files) {
- if ($f =~ m!$TEXMFCONFIG|$TEXMFVAR|$TEXMFHOME!) {
+ if ($f =~ m!\Q$TEXMFCONFIG\E|\Q$TEXMFVAR\E|\Q$TEXMFHOME\E!) {
push @tmp, $f;
} else {
if (!$local_pushed) {
@@ -288,7 +288,7 @@ sub main {
$local_pushed = 1;
}
# push the original
- push @tmp, $f unless ($f =~ m!$TEXMFLOCAL!);
+ push @tmp, $f unless ($f =~ m!\Q$TEXMFLOCAL\E!);
}
}
@used_files = @tmp;
@@ -301,7 +301,7 @@ sub main {
# if none of the two exists, create a file in TEXMFCONFIG and use it
my $use_top = 0;
for my $f (@used_files) {
- if ($f =~ m!($TEXMFHOME|$TEXMFCONFIG)/web2c/updmap.cfg!) {
+ if ($f =~ m!(\Q$TEXMFHOME\E|\Q$TEXMFCONFIG\E)/web2c/updmap.cfg!) {
$use_top = 1;
last;
}