From bbe77fb0508cdba63c4bb07beffca20e61ac099e Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 28 Aug 2009 15:03:26 +0000 Subject: more fixes to my buggy patch git-svn-id: svn://tug.org/texlive/trunk@14915 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/texlive/tlmgr.pl | 5 ++--- 1 file 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; -- cgit v1.2.3