summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2014-05-12 06:32:21 +0000
committerNorbert Preining <preining@logic.at>2014-05-12 06:32:21 +0000
commitdf27e70516055682dad9f79bc8103f020aaaf5bf (patch)
treedb1b32a67212314266acb6fe7e34084a10b1d27e
parent3cfb199b71d496291fc20ebfc83be2f56bd65d28 (diff)
update updmap.pl version display
git-svn-id: svn://tug.org/texlive/trunk@33986 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/updmap.pl10
1 files changed, 8 insertions, 2 deletions
diff --git a/Master/texmf-dist/scripts/texlive/updmap.pl b/Master/texmf-dist/scripts/texlive/updmap.pl
index a389225de7f..43fc05ddd5c 100755
--- a/Master/texmf-dist/scripts/texlive/updmap.pl
+++ b/Master/texmf-dist/scripts/texlive/updmap.pl
@@ -31,8 +31,14 @@ BEGIN {
unshift (@INC, "$TEXMFROOT/tlpkg");
}
-
-my $version = '$Id$';
+my $svnid = '$Id$';
+my $lastchdate = '$Date$';
+$lastchdate =~ s/^\$Date:\s*//;
+$lastchdate =~ s/ \(.*$//;
+my $svnrev = '$Revision$';
+$svnrev =~ s/^\$Revision:\s*//;
+$svnrev =~ s/\s*\$$//;
+my $version = "svn$svnrev ($lastchdate)";
use Getopt::Long qw(:config no_autoabbrev ignore_case_always);
use strict;