summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-08-06 13:18:16 +0000
committerNorbert Preining <preining@logic.at>2009-08-06 13:18:16 +0000
commitae1173ec6fdb5824665e5f5917f725549147df85 (patch)
tree5fea82e16a44ace3b4d71894fe84206347da7fc2 /Master/tlpkg/TeXLive
parent523a3a5a8496779171b512dc7787aa75d8864e71 (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')
-rw-r--r--Master/tlpkg/TeXLive/TLConfig.pm11
-rw-r--r--Master/tlpkg/TeXLive/TLMedia.pm12
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm11
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm11
-rw-r--r--Master/tlpkg/TeXLive/TLPSRC.pm11
-rw-r--r--Master/tlpkg/TeXLive/TLPaper.pm11
-rw-r--r--Master/tlpkg/TeXLive/TLPostActions.pm11
-rw-r--r--Master/tlpkg/TeXLive/TLTREE.pm11
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm11
-rw-r--r--Master/tlpkg/TeXLive/TLWinGoo.pm11
-rw-r--r--Master/tlpkg/TeXLive/TeXCatalogue.pm11
11 files changed, 122 insertions, 0 deletions
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,