summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-19 17:31:42 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-19 17:31:42 +0000
commit25f65beed0677fa247c513705dbf538225f979c4 (patch)
treee0ec937937cba2d6279e97b3b7036fe0856d5bb2 /perl-install/interactive.pm
parenta0b5f74447cc699c43c354cb6397ed554605729b (diff)
downloaddrakx-backup-do-not-use-25f65beed0677fa247c513705dbf538225f979c4.tar
drakx-backup-do-not-use-25f65beed0677fa247c513705dbf538225f979c4.tar.gz
drakx-backup-do-not-use-25f65beed0677fa247c513705dbf538225f979c4.tar.bz2
drakx-backup-do-not-use-25f65beed0677fa247c513705dbf538225f979c4.tar.xz
drakx-backup-do-not-use-25f65beed0677fa247c513705dbf538225f979c4.zip
no_comment
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index debbb0aba..2a18767e4 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -9,7 +9,7 @@ use strict;
use common qw(:common :functional);
#- heritate from this class and you'll get all made interactivity for same steps.
-#- for this you need to provide
+#- for this you need to provide
#- - ask_from_listW(o, title, messages, arrayref, default) returns one string of arrayref
#- - ask_many_from_listW(o, title, messages, arrayref, arrayref2) returns many strings of arrayref
#-
@@ -19,7 +19,7 @@ use common qw(:common :functional);
#- - messages is an refarray of strings
#- - default is an optional string (default is in arrayref)
#- - arrayref is an arrayref of strings
-#- - arrayref2 contains booleans telling the default state,
+#- - arrayref2 contains booleans telling the default state,
#-
#- ask_from_list and ask_from_list_ are wrappers around ask_from_biglist and ask_from_smalllist
#-
@@ -58,7 +58,7 @@ sub ask_okcancel($$$;$) {
}
sub ask_from_list_ {
- my ($o, $title, $message, $l, $def) = @_;
+ my ($o, $title, $message, $l, $def) = @_;
@$l == 0 and die '';
@$l == 1 and return $l->[0];
goto &ask_from_list2_;
@@ -116,7 +116,7 @@ sub ask_from_entries($$$$;$%) {
my $val = [ map { my $i = $_; \$i } @{$def || [('') x @$l]} ];
$o->ask_from_entries_ref($title, $message, $l, $val, %callback) ?
- map { $$_ } @$val :
+ map { $$_ } @$val :
undef;
}
#- can get a hash of callback: focus_out changed and complete
@@ -126,7 +126,7 @@ sub ask_from_entries_ref($$$$;$%) {
my ($o, $title, $message, $l, $val, %callback) = @_;
return unless @$l;
-
+
$message = ref $message ? $message : [ $message ];
my $val_hash = [ map {
@@ -139,7 +139,7 @@ sub ask_from_entries_ref($$$$;$%) {
} @$val ];
$o->ask_from_entries_refW($title, $message, $l, $val_hash, %callback)
-
+
}
sub wait_message($$$) {
my ($o, $title, $message) = @_;