summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_gtk.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-07-27 12:20:59 +0000
committerFrancois Pons <fpons@mandriva.com>2001-07-27 12:20:59 +0000
commit18d901eae2e298dc707ceffcaedc07581d32213e (patch)
tree89fb83a1ef65b823fb48b4396d4cb14b6b20f726 /perl-install/interactive_gtk.pm
parent86c59c0d6fe0bc5d7c7a33e0b715ba38497410a3 (diff)
downloaddrakx-18d901eae2e298dc707ceffcaedc07581d32213e.tar
drakx-18d901eae2e298dc707ceffcaedc07581d32213e.tar.gz
drakx-18d901eae2e298dc707ceffcaedc07581d32213e.tar.bz2
drakx-18d901eae2e298dc707ceffcaedc07581d32213e.tar.xz
drakx-18d901eae2e298dc707ceffcaedc07581d32213e.zip
added a before leaving code to clean added reference (else it seems to bahave
strangely on changing steps).
Diffstat (limited to 'perl-install/interactive_gtk.pm')
-rw-r--r--perl-install/interactive_gtk.pm9
1 files changed, 9 insertions, 0 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index fd2917950..7105d287f 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -691,6 +691,15 @@ sub ask_browse_tree_info_refW {
$toggle->(1) if $_[2] == 1;
});
&$update_size;
+ my $b = before_leaving { #- ensure cleaning here.
+ foreach (values %ptree) {
+ delete $_->{state} foreach @$_;
+ }
+ foreach (values %wtree) {
+ delete $_->{state};
+ delete $_->{state_stats};
+ }
+ };
$w->main;
}