added a before leaving code to clean added reference (else it seems to bahave

strangely on changing steps).

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;
 }