summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-07-24 22:39:28 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-07-24 22:39:28 +0000
commitb60c0cb8f67d745626fec6f0c8540818f24e91a6 (patch)
tree783189547888703c391b1719cf9ceaacb1e1aa63 /perl-install/interactive.pm
parent0a96d505550060312a1cd9a04a9ae9bf23ebdaa2 (diff)
downloaddrakx-b60c0cb8f67d745626fec6f0c8540818f24e91a6.tar
drakx-b60c0cb8f67d745626fec6f0c8540818f24e91a6.tar.gz
drakx-b60c0cb8f67d745626fec6f0c8540818f24e91a6.tar.bz2
drakx-b60c0cb8f67d745626fec6f0c8540818f24e91a6.tar.xz
drakx-b60c0cb8f67d745626fec6f0c8540818f24e91a6.zip
move to MDK::Common, bool->to_bool
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index ad1d4a380..1815ab21e 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -6,7 +6,8 @@ use strict;
#-######################################################################################
#- misc imports
#-######################################################################################
-use common qw(:common :functional);
+use MDK::Common::Func;
+use common;
#- ask_from_entries takes:
#- val => reference to the value
@@ -328,7 +329,7 @@ sub wait_message {
my $b = before_leaving { $o->wait_message_endW($w) };
#- enable access through set
- common::add_f4before_leaving(sub { $o->wait_message_nextW([ deref($_[1]) ], $w) }, $b, 'set');
+ MDK::Common::Func::add_f4before_leaving(sub { $o->wait_message_nextW([ deref($_[1]) ], $w) }, $b, 'set');
$b;
}