From ae1173ec6fdb5824665e5f5917f725549147df85 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 6 Aug 2009 13:18:16 +0000 Subject: tlmgr: add documentation for --w32mode in action path all modules: add MODULE->module_revision function tlmgr: if action version is called with -v, also issue the revision of the modules used (eg TLPDB->module_revision()) git-svn-id: svn://tug.org/texlive/trunk@14552 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPSRC.pm | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'Master/tlpkg/TeXLive/TLPSRC.pm') diff --git a/Master/tlpkg/TeXLive/TLPSRC.pm b/Master/tlpkg/TeXLive/TLPSRC.pm index 7894ffbfaa6..3bf13e20e51 100644 --- a/Master/tlpkg/TeXLive/TLPSRC.pm +++ b/Master/tlpkg/TeXLive/TLPSRC.pm @@ -16,6 +16,17 @@ use TeXLive::TLTREE; my $_tmp; my %autopatterns; # computed once internally +my $svnrev = '$Revision: 14408 $'; +my $_modulerevision; +if ($svnrev =~ m/: ([0-9]+) /) { + $_modulerevision = $1; +} else { + $_modulerevision = "unknown"; +} +sub module_revision { + return $_modulerevision; +} + sub new { my $class = shift; -- cgit v1.2.3