warn if *containermd5 is used

git-svn-id: svn://tug.org/texlive/trunk@46422 c570f23f-e606-0410-a88d-b1316a301751

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;