diff options
author | Karl Berry <karl@freefriends.org> | 2006-12-31 23:43:51 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-12-31 23:43:51 +0000 |
commit | 076715feb370ff031fe1f9111d723331670a385e (patch) | |
tree | fccd642e5c16d8b6c7703493058cb3db76c848e8 /Build/tools | |
parent | e7c5a338a8a39e0964862cc028a9cef4c7ccf6e8 (diff) |
pstricks-add update
git-svn-id: svn://tug.org/texlive/trunk@3074 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/tools')
-rwxr-xr-x | Build/tools/tpm-ctan-check | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Build/tools/tpm-ctan-check b/Build/tools/tpm-ctan-check index 1322f4b4669..13850865423 100755 --- a/Build/tools/tpm-ctan-check +++ b/Build/tools/tpm-ctan-check @@ -198,6 +198,7 @@ sub do_tpm my $needed = 0; my %tpm = &read_tpm ($tpm); + return 1 unless keys %tpm; my @tpm_files = @{$tpm{"files"}}; my @compared = (); @@ -296,7 +297,10 @@ sub read_tpm $me =~ s/\.tpm$//; chomp (my $ctan_dir = `$mydir/tlpkginfo --ctan-dir '$me'`); - die "$0: no CTAN directory for $me\n" if ! $ctan_dir; + if (! $ctan_dir) { + warn "$0: oops, no CTAN directory for $me, fix fix\n"; + return (); + } $ret{"CTANdir"} = $ctan_dir; return %ret; |