From f5df623a3857e1b2889f1bc56862c9cd34d341f4 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Wed, 24 Jan 2018 04:13:22 +0000 Subject: warn if *containermd5 is used git-svn-id: svn://tug.org/texlive/trunk@46422 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPOBJ.pm | 21 ++++++++++++++++++--- 1 file changed, 18 insertions(+), 3 deletions(-) (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm') 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; -- cgit v1.2.3