diff options
| -rw-r--r-- | perl-install/interactive_gtk.pm | 9 |
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; } |