diff options
author | Norbert Preining <preining@logic.at> | 2010-01-14 13:14:55 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2010-01-14 13:14:55 +0000 |
commit | f41ceb9644926a2c09d909bedd3324f8b34f40bd (patch) | |
tree | d6e31ef9f8438ee54993a73a9caf4891cc7d4145 /Master/texmf | |
parent | 7dc139f9bd40e8b010ae0ee32fea1bdc53f2bea0 (diff) |
show tlmgrgui.pl revision, remove GUIv2 string
git-svn-id: svn://tug.org/texlive/trunk@16711 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf')
-rw-r--r-- | Master/texmf/scripts/texlive/tlmgrgui.pl | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui.pl index 5d6e952ea58..b6ea4e8771a 100644 --- a/Master/texmf/scripts/texlive/tlmgrgui.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui.pl @@ -16,14 +16,17 @@ $^W = 1; use strict; -my $svnrev = '$Revision$'; -my $datrev = '$Date$'; +my $guisvnrev = '$Revision$'; +my $guidatrev = '$Date$'; my $tlmgrguirevision; -if ($svnrev =~ m/: ([0-9]+) /) { +if ($guisvnrev =~ m/: ([0-9]+) /) { $tlmgrguirevision = $1; } else { $tlmgrguirevision = "unknown"; } +$guidatrev =~ s/^.*Date: //; +$guidatrev =~ s/ \(.*$//; +$tlmgrguirevision .= " ($guidatrev)"; use Tk; use Tk::Dialog; @@ -538,9 +541,10 @@ sub setup_menu_system { -command => sub { my $sw = $mw->DialogBox(-title => __("About"), -buttons => [ __("Ok") ]); - $sw->add("Label", -text => "TeX Live Manager (GUIv2) -tlmgr.pl: $tlmgrrev -tlmgrgui.pl: $tlmgrguirev + $sw->add("Label", -text => "TeX Live Manager + +tlmgrgui revision $tlmgrguirevision +$tlmgrrev Copyright 2009 Norbert Preining Licensed under the GNU General Public License version 2 or higher |