summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-04-21 19:08:52 +0000
committerKarl Berry <karl@freefriends.org>2016-04-21 19:08:52 +0000
commit5aa28567dca799a746db5c20e400edcfc4031be1 (patch)
tree58ef62fb29b5c4f38158036b3d640c42ce73f2df /Master/tlpkg/TeXLive/TLPOBJ.pm
parent525c559215b4d53a04b0f291b9c45619bc0f0f21 (diff)
TLCrypto.pm: new module with all the functions using digests/gpg,
extracted from TLUtils.pm. TLUtils.pm: functions moved from here, change calls. TLConfig.pm: doc. TLPDB.pm, TLPOBJ.pm, install-tl, tlmgr.pl: use TLCrypto, change calls, doc. git-svn-id: svn://tug.org/texlive/trunk@40652 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm26
1 files changed, 11 insertions, 15 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index 8cb9b6d4d79..f152f85d676 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -1,4 +1,4 @@
-# $Id: TLPOBJ.pm 40251 2016-04-05 21:18:12Z karl $
+# $Id$
# TeXLive::TLPOBJ.pm - module for using tlpobj files
# Copyright 2007-2016 Norbert Preining
# This file is licensed under the GNU General Public License version 2
@@ -6,6 +6,10 @@
package TeXLive::TLPOBJ;
+my $svnrev = '$Revision$';
+my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown";
+sub module_revision { return $_modulerevision; }
+
use TeXLive::TLConfig qw($DefaultCategory $CategoriesRegexp
$MetaCategoriesRegexp $InfraLocation
$RelocPrefix $RelocTree);
@@ -15,16 +19,6 @@ use TeXLive::TLTREE;
our $_tmp;
my $_containerdir;
-my $svnrev = '$Revision: 40251 $';
-my $_modulerevision;
-if ($svnrev =~ m/: ([0-9]+) /) {
- $_modulerevision = $1;
-} else {
- $_modulerevision = "unknown";
-}
-sub module_revision {
- return $_modulerevision;
-}
sub new {
my $class = shift;
@@ -688,7 +682,7 @@ sub make_container {
return (0, 0, "");
}
my $size = (stat "$destdir/$containername") [7];
- my $checksum = TeXLive::TLUtils::tlchecksum("$destdir/$containername");
+ my $checksum = TeXLive::TLCrypto::tlchecksum("$destdir/$containername");
# cleaning up
unlink("$tlpobjdir/$self->{'name'}.tlpobj");
@@ -757,7 +751,7 @@ sub update_from_catalogue {
$foo =~ s/^.Date: //;
# trying to extract the interesting part of a subversion date
# keyword expansion here, e.g.,
- # $Date: 2016-04-06 06:18:12 +0900 (Wed, 06 Apr 2016) $
+ # $Date$
# ->2007-08-15 19:43:35 +0100
$foo =~ s/ \(.*\)( *\$ *)$//; # maybe nothing after parens
$self->cataloguedata->{'date'} = $foo;
@@ -1715,8 +1709,10 @@ lines for language.dat.lua that can be generated from the tlpobj.
=head1 SEE ALSO
-The modules L<TeXLive::TLConfig>, L<TeXLive::TLUtils>, L<TeXLive::TLPSRC>,
-L<TeXLive::TLPDB>, L<TeXLive::TLTREE>, L<TeXLive::TeXCatalogue>.
+The modules L<TeXLive::TLConfig>, L<TeXLive::TLCrypto>,
+L<TeXLive::TLUtils>, L<TeXLive::TLPSRC>, L<TeXLive::TLPDB>,
+L<TeXLive::TLTREE>, L<TeXLive::TeXCatalogue>, etc., and the
+documentation in the repository: C<Master/tlpkg/doc/>.
=head1 AUTHORS AND COPYRIGHT