texlive[46422] Master/tlpkg/TeXLive/TLPOBJ.pm: warn if *containermd5
commits+preining at tug.org
commits+preining at tug.org
Wed Jan 24 05:13:22 CET 2018
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;
More information about the tex-live-commits
mailing list