summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-28 12:56:26 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-28 12:56:26 +0000
commit5fd046ac65b74d9b9b5c18bbb9579329f4036c49 (patch)
tree7787538c42e634c8e9935866048bfcfb282a7ef8 /perl-install/interactive.pm
parentf902492a01c974283c9c800ddbd5de651c474c25 (diff)
downloaddrakx-5fd046ac65b74d9b9b5c18bbb9579329f4036c49.tar
drakx-5fd046ac65b74d9b9b5c18bbb9579329f4036c49.tar.gz
drakx-5fd046ac65b74d9b9b5c18bbb9579329f4036c49.tar.bz2
drakx-5fd046ac65b74d9b9b5c18bbb9579329f4036c49.tar.xz
drakx-5fd046ac65b74d9b9b5c18bbb9579329f4036c49.zip
no_comment
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm10
1 files changed, 1 insertions, 9 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 2a18767e4..a6a8a1341 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -154,15 +154,7 @@ sub wait_message($$$) {
$b;
}
-sub kill {
- my ($o) = @_;
- $o->{before_killing} ||= 0;
- while (@interactive::objects > $o->{before_killing}) {
- my $w = pop @interactive::objects;
- $w->destroy;
- }
- $o->{before_killing} = @interactive::objects;
-}
+sub kill {}
#-######################################################################################
#- Wonderful perl :(