summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-12-08 11:34:50 +0000
committerNorbert Preining <preining@logic.at>2009-12-08 11:34:50 +0000
commit241b9c269ee73196458e7dba1cd3520518850707 (patch)
tree28c035c5053557a81aa978de00d21fcf875e3875 /Master/tlpkg
parentdbbe22cafe69bfe537bef3c89048bdab93588c1e (diff)
more memory reclaiming
git-svn-id: svn://tug.org/texlive/trunk@16329 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rw-r--r--Master/tlpkg/dev/tlmgrgui2.pl3
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'};