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/TLConfig.pm | 11 +++++++++++ Master/tlpkg/TeXLive/TLMedia.pm | 12 ++++++++++++ Master/tlpkg/TeXLive/TLPDB.pm | 11 +++++++++++ Master/tlpkg/TeXLive/TLPOBJ.pm | 11 +++++++++++ Master/tlpkg/TeXLive/TLPSRC.pm | 11 +++++++++++ Master/tlpkg/TeXLive/TLPaper.pm | 11 +++++++++++ Master/tlpkg/TeXLive/TLPostActions.pm | 11 +++++++++++ Master/tlpkg/TeXLive/TLTREE.pm | 11 +++++++++++ Master/tlpkg/TeXLive/TLUtils.pm | 11 +++++++++++ Master/tlpkg/TeXLive/TLWinGoo.pm | 11 +++++++++++ Master/tlpkg/TeXLive/TeXCatalogue.pm | 11 +++++++++++ 11 files changed, 122 insertions(+) (limited to 'Master/tlpkg/TeXLive') diff --git a/Master/tlpkg/TeXLive/TLConfig.pm b/Master/tlpkg/TeXLive/TLConfig.pm index 73703489569..d5d8c9d314a 100644 --- a/Master/tlpkg/TeXLive/TLConfig.pm +++ b/Master/tlpkg/TeXLive/TLConfig.pm @@ -6,6 +6,17 @@ package TeXLive::TLConfig; +my $svnrev = '$Revision: 14542 $'; +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 ); diff --git a/Master/tlpkg/TeXLive/TLMedia.pm b/Master/tlpkg/TeXLive/TLMedia.pm index d705991fcd4..af7b7dd3027 100644 --- a/Master/tlpkg/TeXLive/TLMedia.pm +++ b/Master/tlpkg/TeXLive/TLMedia.pm @@ -7,6 +7,18 @@ package TeXLive::TLMedia; +my $svnrev = '$Revision: 14408 $'; +my $_modulerevision; +if ($svnrev =~ m/: ([0-9]+) /) { + $_modulerevision = $1; +} else { + $_modulerevision = "unknown"; +} +sub module_revision { + return $_modulerevision; +} + + use TeXLive::TLConfig; use TeXLive::TLUtils qw(copy win32 dirname mkdirhier basename download_file merge_into debug ddebug info tlwarn log); diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index c9024d7e113..55f01b32fed 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -7,6 +7,17 @@ package TeXLive::TLPDB; +my $svnrev = '$Revision: 14542 $'; +my $_modulerevision; +if ($svnrev =~ m/: ([0-9]+) /) { + $_modulerevision = $1; +} else { + $_modulerevision = "unknown"; +} +sub module_revision { + return $_modulerevision; +} + =pod =head1 NAME diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index 87a19e70377..edcbceb279a 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -15,6 +15,17 @@ use TeXLive::TLTREE; our $_tmp; my $_containerdir; +my $svnrev = '$Revision: 14264 $'; +my $_modulerevision; +if ($svnrev =~ m/: ([0-9]+) /) { + $_modulerevision = $1; +} else { + $_modulerevision = "unknown"; +} +sub module_revision { + return $_modulerevision; +} + sub new { my $class = shift; my %params = @_; 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; diff --git a/Master/tlpkg/TeXLive/TLPaper.pm b/Master/tlpkg/TeXLive/TLPaper.pm index c1e4a00d08b..10afb886e17 100644 --- a/Master/tlpkg/TeXLive/TLPaper.pm +++ b/Master/tlpkg/TeXLive/TLPaper.pm @@ -13,6 +13,17 @@ package TeXLive::TLPaper; +my $svnrev = '$Revision: 11574 $'; +my $_modulerevision; +if ($svnrev =~ m/: ([0-9]+) /) { + $_modulerevision = $1; +} else { + $_modulerevision = "unknown"; +} +sub module_revision { + return $_modulerevision; +} + =pod =head1 NAME 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 ); diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm index d0897d20885..54b6678f34e 100644 --- a/Master/tlpkg/TeXLive/TLTREE.pm +++ b/Master/tlpkg/TeXLive/TLTREE.pm @@ -7,6 +7,17 @@ package TeXLive::TLTREE; +my $svnrev = '$Revision: 14264 $'; +my $_modulerevision; +if ($svnrev =~ m/: ([0-9]+) /) { + $_modulerevision = $1; +} else { + $_modulerevision = "unknown"; +} +sub module_revision { + return $_modulerevision; +} + use TeXLive::TLUtils; sub new { diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index cd4246f6c0f..f9d649fe753 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -7,6 +7,17 @@ package TeXLive::TLUtils; +my $svnrev = '$Revision: 14416 $'; +my $_modulerevision; +if ($svnrev =~ m/: ([0-9]+) /) { + $_modulerevision = $1; +} else { + $_modulerevision = "unknown"; +} +sub module_revision { + return $_modulerevision; +} + =pod =head1 NAME diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm index d1f773f87d6..852a6127b69 100644 --- a/Master/tlpkg/TeXLive/TLWinGoo.pm +++ b/Master/tlpkg/TeXLive/TLWinGoo.pm @@ -12,6 +12,17 @@ package TeXLive::TLWinGoo; +my $svnrev = '$Revision: 14264 $'; +my $_modulerevision; +if ($svnrev =~ m/: ([0-9]+) /) { + $_modulerevision = $1; +} else { + $_modulerevision = "unknown"; +} +sub module_revision { + return $_modulerevision; +} + =pod =head1 NAME diff --git a/Master/tlpkg/TeXLive/TeXCatalogue.pm b/Master/tlpkg/TeXLive/TeXCatalogue.pm index b35bbeba8e1..80b6e55b6b2 100644 --- a/Master/tlpkg/TeXLive/TeXCatalogue.pm +++ b/Master/tlpkg/TeXLive/TeXCatalogue.pm @@ -14,6 +14,17 @@ use Encode; package TeXLive::TeXCatalogue::Entry; +my $svnrev = '$Revision: 14264 $'; +my $_modulerevision; +if ($svnrev =~ m/: ([0-9]+) /) { + $_modulerevision = $1; +} else { + $_modulerevision = "unknown"; +} +sub module_revision { + return $_modulerevision; +} + my $_parser = XML::Parser->new( ErrorContext => 2, ParseParamEnt => 1, -- cgit v1.2.3