quote strings returned from kpsewhich in regexp matching

git-svn-id: svn://tug.org/texlive/trunk@26489 c570f23f-e606-0410-a88d-b1316a301751

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;
       }