From 18d901eae2e298dc707ceffcaedc07581d32213e Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 27 Jul 2001 12:20:59 +0000
Subject: added a before leaving code to clean added reference (else it seems
 to bahave strangely on changing steps).

---
 perl-install/interactive_gtk.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'perl-install')

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;
 }
 
-- 
cgit v1.2.1