more memory reclaiming

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

1 files changed, 3 insertions, 0 deletions

diff --git a/Master/tlpkg/dev/tlmgrgui2.pl b/Master/tlpkg/dev/tlmgrgui2.pl
index 710aa799c1d..78f553230fc 100644
--- a/Master/tlpkg/dev/tlmgrgui2.pl
+++ b/Master/tlpkg/dev/tlmgrgui2.pl
@@ -1429,6 +1429,7 @@ sub setup_list {
     $Packages{$p}{'localrevision'} = $tlp->revision;
     $Packages{$p}{'installed'}     = 1;
     $Packages{$p}{'selected'}      = 0;
+    delete($Packages{$p}{'tlp'}) if defined($Packages{$p}{'tlp'});
     $Packages{$p}{'tlp'}           = $tlp;
     $Packages{$p}{'cb'}->destroy() if defined($Packages{$p}{'cb'});
     $Packages{$p}{'cb'}            = $g->Checkbutton(-variable => \$Packages{$p}{'selected'});
@@ -1476,6 +1477,7 @@ sub update_list_remote {
   for my $p (keys %Packages) {
     if (!$Packages{$p}{'installed'}) {
       $Packages{$p}{'cb'}->destroy() if defined($Packages{$p}{'cb'});
+      delete($Packages{$p}{'tlp'}) if defined($Packages{$p}{'tlp'});
       delete $Packages{$p};
       next;
     }
@@ -1492,6 +1494,7 @@ sub update_list_remote {
       $Packages{$p}{'displayname'}   = $p;
       $Packages{$p}{'remoterevision'} = $tlp->revision;
       # overwrite, we assume that the remove version is better ;-)
+      delete($Packages{$p}{'tlp'}) if defined($Packages{$p}{'tlp'});
       $Packages{$p}{'tlp'}           = $tlp;
       $Packages{$p}{'selected'}      = 0
         unless defined $Packages{$p}{'selected'};