more fixes to my buggy patch

git-svn-id: svn://tug.org/texlive/trunk@14915 c570f23f-e606-0410-a88d-b1316a301751

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;