diff options
author | Norbert Preining <preining@logic.at> | 2009-08-06 13:18:16 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-08-06 13:18:16 +0000 |
commit | ae1173ec6fdb5824665e5f5917f725549147df85 (patch) | |
tree | 5fea82e16a44ace3b4d71894fe84206347da7fc2 /Master/tlpkg/TeXLive/TLPostActions.pm | |
parent | 523a3a5a8496779171b512dc7787aa75d8864e71 (diff) |
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
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPostActions.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPostActions.pm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLPostActions.pm b/Master/tlpkg/TeXLive/TLPostActions.pm index f1e1f2da76c..a6cec66f8bd 100644 --- a/Master/tlpkg/TeXLive/TLPostActions.pm +++ b/Master/tlpkg/TeXLive/TLPostActions.pm @@ -6,6 +6,17 @@ package TeXLive::TLPostActions; +my $svnrev = '$Revision: 14262 $'; +my $_modulerevision; +if ($svnrev =~ m/: ([0-9]+) /) { + $_modulerevision = $1; +} else { + $_modulerevision = "unknown"; +} +sub module_revision { + return $_modulerevision; +} + BEGIN { use Exporter (); use vars qw( @ISA @EXPORT_OK @EXPORT ); |