diff options
Diffstat (limited to 'perl-install/wizards.pm')
| -rw-r--r-- | perl-install/wizards.pm | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/perl-install/wizards.pm b/perl-install/wizards.pm index 553122c8e..15f3beb31 100644 --- a/perl-install/wizards.pm +++ b/perl-install/wizards.pm @@ -131,7 +131,6 @@ 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); @@ -153,20 +152,16 @@ 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}) { @@ -176,9 +171,7 @@ 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 } |