diff options
| author | Norbert Preining <preining@logic.at> | 2014-05-12 06:32:21 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2014-05-12 06:32:21 +0000 |
| commit | df27e70516055682dad9f79bc8103f020aaaf5bf (patch) | |
| tree | db1b32a67212314266acb6fe7e34084a10b1d27e /Master | |
| parent | 3cfb199b71d496291fc20ebfc83be2f56bd65d28 (diff) | |
update updmap.pl version display
git-svn-id: svn://tug.org/texlive/trunk@33986 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
| -rwxr-xr-x | Master/texmf-dist/scripts/texlive/updmap.pl | 10 |
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; |