texlive[44087]

[commits+karl at tug.org]

Revision: 44087
          http://tug.org/svn/texlive?view=revision&revision=44087
Author:   karl
Date:     2017-04-27 23:57:30 +0200 (Thu, 27 Apr 2017)
Log Message:
-----------
sync syntax

Modified Paths:
--------------
    trunk/Build/source/texk/texlive/linked_scripts/texlive/updmap.pl

Modified: trunk/Build/source/texk/texlive/linked_scripts/texlive/updmap.pl
===================================================================
--- trunk/Build/source/texk/texlive/linked_scripts/texlive/updmap.pl	2017-04-27 21:38:29 UTC (rev 44086)
+++ trunk/Build/source/texk/texlive/linked_scripts/texlive/updmap.pl	2017-04-27 21:57:30 UTC (rev 44087)
@@ -1,5 +1,5 @@
 #!/usr/bin/env perl
-# $Id: updmap.pl 44056 2017-04-26 08:14:28Z preining $
+# $Id: updmap.pl 44080 2017-04-27 16:46:42Z karl $
 # updmap - maintain map files for outline fonts.
 # (Maintained in TeX Live:Master/texmf-dist/scripts/texlive.)
 # 
@@ -14,7 +14,7 @@
 # the original versions were licensed under the following agreement:
 # Anyone may freely use, modify, and/or distribute this file, without
 
-my $svnid = '$Id: updmap.pl 44056 2017-04-26 08:14:28Z preining $';
+my $svnid = '$Id: updmap.pl 44080 2017-04-27 16:46:42Z karl $';
 
 my $TEXMFROOT;
 BEGIN {
@@ -27,10 +27,10 @@
   unshift(@INC, "$TEXMFROOT/tlpkg");
 }
 
-my $lastchdate = '$Date: 2017-04-26 10:14:28 +0200 (Wed, 26 Apr 2017) $';
+my $lastchdate = '$Date: 2017-04-27 18:46:42 +0200 (Thu, 27 Apr 2017) $';
 $lastchdate =~ s/^\$Date:\s*//;
 $lastchdate =~ s/ \(.*$//;
-my $svnrev = '$Revision: 44056 $';
+my $svnrev = '$Revision: 44080 $';
 $svnrev =~ s/^\$Revision:\s*//;
 $svnrev =~ s/\s*\$$//;
 my $version = "r$svnrev ($lastchdate)";
@@ -1479,8 +1479,8 @@
       # allow for all lowercase map types (map/mixedmap/kanjimap)
       $type =~ s/map$/Map/;
       $type = ucfirst($type);
-      # don't allow for map names containing /
-      die "$prg: map files cannot be relative/absolute paths: $map\n" if ($map =~ m{/})
+      # don't allow map names containing /
+      die "$prg: map names cannot contain /: $map\n" if ($map =~ m{/});
       enable_map($tc, $type, $map);
     } else {
       # this is --disable MapName