From 7dc139f9bd40e8b010ae0ee32fea1bdc53f2bea0 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 14 Jan 2010 13:07:43 +0000 Subject: show tlmgrgui.pl revisison in about git-svn-id: svn://tug.org/texlive/trunk@16710 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/texlive/tlmgrgui.pl | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) 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 -- cgit v1.2.3