texlive[46422] Master/tlpkg/TeXLive/TLPOBJ.pm: warn if *containermd5

[commits+preining at tug.org]

Revision: 46422
          http://tug.org/svn/texlive?view=revision&revision=46422
Author:   preining
Date:     2018-01-24 05:13:22 +0100 (Wed, 24 Jan 2018)
Log Message:
-----------
warn if *containermd5 is used

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLPOBJ.pm

Modified: trunk/Master/tlpkg/TeXLive/TLPOBJ.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLPOBJ.pm	2018-01-24 03:55:35 UTC (rev 46421)
+++ trunk/Master/tlpkg/TeXLive/TLPOBJ.pm	2018-01-24 04:13:22 UTC (rev 46422)
@@ -1262,17 +1262,32 @@
 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;