diff options
| author | Karl Berry <karl@freefriends.org> | 2016-04-21 19:08:52 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2016-04-21 19:08:52 +0000 |
| commit | 5aa28567dca799a746db5c20e400edcfc4031be1 (patch) | |
| tree | 58ef62fb29b5c4f38158036b3d640c42ce73f2df /Master/tlpkg/TeXLive/TLPOBJ.pm | |
| parent | 525c559215b4d53a04b0f291b9c45619bc0f0f21 (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.pm | 26 |
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 |