diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 21 |
1 files changed, 18 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index 82eaf531ce4..c0b9b4c74b8 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -1262,17 +1262,32 @@ sub doccontainersize { sub containermd5 { my $self = shift; if (@_) { $self->{'containermd5'} = shift } - return ( defined($self->{'containermd5'}) ? $self->{'containermd5'} : "" ); + if (defined($self->{'containermd5'})) { + return ($self->{'containermd5'}); + } else { + tlwarn("TLPOBJ: MD5 sums are no longer supported, please adapt your code!\n"); + return (""); + } } sub srccontainermd5 { my $self = shift; if (@_) { $self->{'srccontainermd5'} = shift } - return ( defined($self->{'srccontainermd5'}) ? $self->{'srccontainermd5'} : "" ); + if (defined($self->{'srccontainermd5'})) { + return ($self->{'srccontainermd5'}); + } else { + tlwarn("TLPOBJ: MD5 sums are no longer supported, please adapt your code!\n"); + return (""); + } } sub doccontainermd5 { my $self = shift; if (@_) { $self->{'doccontainermd5'} = shift } - return ( defined($self->{'doccontainermd5'}) ? $self->{'doccontainermd5'} : "" ); + if (defined($self->{'doccontainermd5'})) { + return ($self->{'doccontainermd5'}); + } else { + tlwarn("TLPOBJ: MD5 sums are no longer supported, please adapt your code!\n"); + return (""); + } } sub containerchecksum { my $self = shift; |