diff options
| -rwxr-xr-x | Master/tlpkg/bin/ctan-check | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/Master/tlpkg/bin/ctan-check b/Master/tlpkg/bin/ctan-check index ef0dde02a4f..6aabfb18124 100755 --- a/Master/tlpkg/bin/ctan-check +++ b/Master/tlpkg/bin/ctan-check @@ -249,7 +249,10 @@ sub do_tlp my $needed = 0; my $tlp = $tlpdb->get_package($tlpn); - die("Cannot get package $tlpn, strange!\n") unless (defined($tlp)); + if (not(defined($tlp))) { + warn("Cannot get package $tlpn, strange!\n"); + return 1; + } chomp (my $ctan_dir = `$mydir/tlpkginfo --ctan-dir '$tlpn'`); if (! $ctan_dir) { @@ -272,7 +275,7 @@ sub do_tlp } (my $basefile = $file) =~ s,^.*/,,; - chomp (my @ctan_files = `find $tpm{CTANdir}/ -name $basefile`); + chomp (my @ctan_files = `find $ctan_dir/ -name $basefile`); #warn "ctan find $basefile: @ctan_files\n"; # the trailing / is so if we happen to hit a symlink on CTAN, it'll # go through. @@ -282,7 +285,7 @@ sub do_tlp #warn "ctan file is $ctan_file\n"; if (! -e $ctan_file) { # maybe it'll be there with a case change in the name - chomp (@ctan_files = `find $tpm{CTANdir}/ -iname $basefile`); + chomp (@ctan_files = `find $ctan_dir/ -iname $basefile`); next if @ctan_files > 1; # if more than one file by same name, skip $ctan_file = $ctan_files[0]; @@ -310,7 +313,7 @@ sub do_tlp # xx check ctan dir for new files if (@compared == 0) { - warn "\n$tpm: no files to compare in $tpm{CTANdir}, fixme!\n"; + warn "\n$tpm: no files to compare in $ctan_dir, fixme!\n"; warn "(tpm_files = @tpm_files)\n"; } elsif ($needed == 0) { print "ok, " . (@compared + 0) . " compared (@compared)\n" |