From f5b4316e36bc6cd2b32ca5ef80cee92f15bb8555 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Tue, 12 Apr 2016 06:12:51 +0000 Subject: fixes from live testing git-svn-id: svn://tug.org/texlive/trunk@40457 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPOBJ.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm') diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index bbed060353e..8cb9b6d4d79 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -171,7 +171,8 @@ sub from_fh { $self->{$cmd} = $arg; } elsif ($cmd eq 'containerchecksum' || $cmd eq 'srccontainerchecksum' || $cmd eq 'doccontainerchecksum') { - $arg =~ /^[a-f0-9]{$ChecksumLength}$/ or die "Invalid checksum value: $line!"; + $arg =~ /^[a-f0-9]{$TeXLive::TLConfig::ChecksumLength}$/ + or die "Invalid checksum value: $line!"; $self->{$cmd} = $arg; } elsif ($cmd eq 'name') { $arg =~ /^([-.\w]+)$/ or die("Invalid name: $line!"); -- cgit v1.2.3