diff options
author | Norbert Preining <preining@logic.at> | 2009-08-28 15:03:26 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-08-28 15:03:26 +0000 |
commit | bbe77fb0508cdba63c4bb07beffca20e61ac099e (patch) | |
tree | 868178f60bae9f394e0bdf1f51d3a127074de8fe /Master/texmf/scripts | |
parent | 470820b1373937de0e9d71f4b5fca3e901d4cfcb (diff) |
more fixes to my buggy patch
git-svn-id: svn://tug.org/texlive/trunk@14915 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf/scripts')
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index f2c80a42460..bad958b4281 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -2135,7 +2135,6 @@ sub action_update { for my $pkg (@critical) { next unless (defined($updated{$pkg})); $infra_update_done &&= $updated{$pkg}; - my (@old_infra_files, @new_infra_files); my $oldtlp; my $newtlp; if ($updated{$pkg}) { @@ -2147,8 +2146,8 @@ sub action_update { $oldtlp = $tlmediatlpdb->get_package($pkg); $newtlp = $localtlpdb->get_package($pkg); } - die ("That shouldn't happen: $p not found in tlpdb") if !defined($newtlp); - die ("That shouldn't happen: $p not found in tlpdb") if !defined($oldtlp); + die ("That shouldn't happen: $pkg not found in tlpdb") if !defined($newtlp); + die ("That shouldn't happen: $pkg not found in tlpdb") if !defined($oldtlp); my @old_infra_files = $oldtlp->all_files; my @new_infra_files = $newtlp->all_files; my %del_files; |