diff options
| author | Norbert Preining <preining@logic.at> | 2010-01-14 13:07:43 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2010-01-14 13:07:43 +0000 |
| commit | 7dc139f9bd40e8b010ae0ee32fea1bdc53f2bea0 (patch) | |
| tree | 1b610cf0d51a0026c385694ddfe765752293ae2c /Master/texmf/scripts | |
| parent | d76a37d5cbbc4a21d7f58b1c7fb7c3efc74753c1 (diff) | |
show tlmgrgui.pl revisison in about
git-svn-id: svn://tug.org/texlive/trunk@16710 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf/scripts')
| -rw-r--r-- | Master/texmf/scripts/texlive/tlmgrgui.pl | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui.pl index db6567aa209..5d6e952ea58 100644 --- a/Master/texmf/scripts/texlive/tlmgrgui.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui.pl @@ -16,6 +16,15 @@ $^W = 1; use strict; +my $svnrev = '$Revision$'; +my $datrev = '$Date$'; +my $tlmgrguirevision; +if ($svnrev =~ m/: ([0-9]+) /) { + $tlmgrguirevision = $1; +} else { + $tlmgrguirevision = "unknown"; +} + use Tk; use Tk::Dialog; use Tk::Adjuster; @@ -530,7 +539,8 @@ sub setup_menu_system { my $sw = $mw->DialogBox(-title => __("About"), -buttons => [ __("Ok") ]); $sw->add("Label", -text => "TeX Live Manager (GUIv2) -$tlmgrrev +tlmgr.pl: $tlmgrrev +tlmgrgui.pl: $tlmgrguirev Copyright 2009 Norbert Preining Licensed under the GNU General Public License version 2 or higher |