summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2016-04-12 06:12:40 +0000
committerNorbert Preining <preining@logic.at>2016-04-12 06:12:40 +0000
commited5df79528e81f334b3d8bcc732e4e8193173e1b (patch)
tree18f93b43dfbe056b994a0e5dee318dada99bbc88 /Master/tlpkg/TeXLive/TLPOBJ.pm
parent3c6b3c84c968c38b4331ff5aa3625238a5c970d9 (diff)
fix missing access functions for new checksum
git-svn-id: svn://tug.org/texlive/trunk@40456 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm21
1 files changed, 18 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index 365aeed6c1d..bbed060353e 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -1,4 +1,4 @@
-# $Id$
+# $Id: TLPOBJ.pm 40251 2016-04-05 21:18:12Z karl $
# 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
@@ -15,7 +15,7 @@ use TeXLive::TLTREE;
our $_tmp;
my $_containerdir;
-my $svnrev = '$Revision$';
+my $svnrev = '$Revision: 40251 $';
my $_modulerevision;
if ($svnrev =~ m/: ([0-9]+) /) {
$_modulerevision = $1;
@@ -756,7 +756,7 @@ sub update_from_catalogue {
$foo =~ s/^.Date: //;
# trying to extract the interesting part of a subversion date
# keyword expansion here, e.g.,
- # $Date$
+ # $Date: 2016-04-06 06:18:12 +0900 (Wed, 06 Apr 2016) $
# ->2007-08-15 19:43:35 +0100
$foo =~ s/ \(.*\)( *\$ *)$//; # maybe nothing after parens
$self->cataloguedata->{'date'} = $foo;
@@ -1209,6 +1209,21 @@ sub doccontainermd5 {
if (@_) { $self->{'doccontainermd5'} = shift }
return ( defined($self->{'doccontainermd5'}) ? $self->{'doccontainermd5'} : "" );
}
+sub containerchecksum {
+ my $self = shift;
+ if (@_) { $self->{'containerchecksum'} = shift }
+ return ( defined($self->{'containerchecksum'}) ? $self->{'containerchecksum'} : "" );
+}
+sub srccontainerchecksum {
+ my $self = shift;
+ if (@_) { $self->{'srccontainerchecksum'} = shift }
+ return ( defined($self->{'srccontainerchecksum'}) ? $self->{'srccontainerchecksum'} : "" );
+}
+sub doccontainerchecksum {
+ my $self = shift;
+ if (@_) { $self->{'doccontainerchecksum'} = shift }
+ return ( defined($self->{'doccontainerchecksum'}) ? $self->{'doccontainerchecksum'} : "" );
+}
sub srcsize {
my $self = shift;
if (@_) { $self->{'srcsize'} = shift }