From 3efcf23fd7d8e49cf077b00b84ed4894f1110135 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sat, 19 May 2012 00:02:18 +0000 Subject: quote strings returned from kpsewhich in regexp matching git-svn-id: svn://tug.org/texlive/trunk@26489 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/tetex/updmap.pl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'Master') 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; } -- cgit v1.2.3