From 46eb3d8d2886cbe007f6b7768d6d9158ab15b65a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 8 Sep 2001 21:05:32 +0000
Subject: ugly workaround perl bug ([ID 20010908.008] memory leak with nested
 subs)

---
 perl-install/interactive.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index e8ef2d944..bd8d4ed7a 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -290,7 +290,9 @@ sub ask_from_ {
     ask_from_normalize($o, $common, $l);
 
     @$l or return 1;
-    $o->ask_fromW($common, [ grep { !$_->{advanced} } @$l ], [ grep { $_->{advanced} } @$l ]);
+    my $v = $o->ask_fromW($common, [ grep { !$_->{advanced} } @$l ], [ grep { $_->{advanced} } @$l ]);
+    %$common = ();
+    $v;
 }
 sub ask_from_no_check {
     my ($o, $common, $l) = @_;
-- 
cgit v1.2.1