summaryrefslogtreecommitdiff
path: root/Master/texmf/scripts
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2010-01-14 13:07:43 +0000
committerNorbert Preining <preining@logic.at>2010-01-14 13:07:43 +0000
commit7dc139f9bd40e8b010ae0ee32fea1bdc53f2bea0 (patch)
tree1b610cf0d51a0026c385694ddfe765752293ae2c /Master/texmf/scripts
parentd76a37d5cbbc4a21d7f58b1c7fb7c3efc74753c1 (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.pl12
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