summaryrefslogtreecommitdiffstats
path: root/perl-install/wizards.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-12 11:42:51 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-12 11:42:51 +0000
commit66e6644a89788360516adf05561f43a2199ca3a7 (patch)
tree534fad3390f8f32e6a4115c55defbae495eacfd9 /perl-install/wizards.pm
parent8424c52c0da45ef6221acd9d056f4c430b05f210 (diff)
downloaddrakx-backup-do-not-use-66e6644a89788360516adf05561f43a2199ca3a7.tar
drakx-backup-do-not-use-66e6644a89788360516adf05561f43a2199ca3a7.tar.gz
drakx-backup-do-not-use-66e6644a89788360516adf05561f43a2199ca3a7.tar.bz2
drakx-backup-do-not-use-66e6644a89788360516adf05561f43a2199ca3a7.tar.xz
drakx-backup-do-not-use-66e6644a89788360516adf05561f43a2199ca3a7.zip
only complain if a problem actually happened
Diffstat (limited to 'perl-install/wizards.pm')
-rw-r--r--perl-install/wizards.pm9
1 files changed, 8 insertions, 1 deletions
diff --git a/perl-install/wizards.pm b/perl-install/wizards.pm
index 7b4482b78..553122c8e 100644
--- a/perl-install/wizards.pm
+++ b/perl-install/wizards.pm
@@ -131,6 +131,7 @@ sub process {
local $::Wizard_no_previous = $page->{no_back};
local $::Wizard_no_cancel = $page->{no_cancel} || $page->{end};
local $::Wizard_finished = $page->{end};
+ print qq(STEPPING "$next"\n);
defined $page->{pre} and $page->{pre}($page);
die qq(inexistant "$next" wizard step) if is_empty_hash_ref($page);
@@ -152,16 +153,20 @@ sub process {
}
}
my $name = ref($page->{name}) ? $page->{name}->() : $page->{name};
+ #use Data::Dumper; print Dumper([ $name, $data2 ]);
my $a = $in->ask_from_({ title => $o->{name},
messages => $name,
callbacks => { map { $_ => $page->{$_} || $default_callback{$_} } qw(focus_out complete) },
if_($page->{interactive_help_id}, interactive_help_id => $page->{interactive_help_id}),
}, $data2);
+ print "WIZGOT ($a)\n";
if ($a) {
+ print "FORWARD($a)\n";
# step forward:
push @steps, $next if !$page->{ignore} && $steps[-1] ne $next;
my $current = $next;
$next = defined $page->{post} ? $page->{post}($a) : 0;
+ # or add a field end => 1
return if $current eq "end";
if (!$next) {
if (!defined $o->{pages}{$next}) {
@@ -171,7 +176,9 @@ sub process {
}
}
die qq(Step "$current": inexistant "$next" page) if !exists $o->{pages}{$next};
+ print qq(GOING from "$current" to "$next"\n);
} else {
+ print "BACKWARD\n";
# step back:
$next = pop @steps
}
@@ -187,7 +194,7 @@ sub safe_process {
if ($err =~ /wizcancel/) {
$in->exit(0);
} else {
- die $err;
+ die $err if $err;
}
}