summaryrefslogtreecommitdiffstats
path: root/perl-install/wizards.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-12 13:06:50 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-12 13:06:50 +0000
commite8a6ab3527cbb5a666fd830518cf4343aaf52f34 (patch)
treef8fbdcfe8cee83119b4f4df0693a1003427f0151 /perl-install/wizards.pm
parent44c857123e94dbe8e4e73dcb129af2fd4ec572ff (diff)
downloaddrakx-backup-do-not-use-e8a6ab3527cbb5a666fd830518cf4343aaf52f34.tar
drakx-backup-do-not-use-e8a6ab3527cbb5a666fd830518cf4343aaf52f34.tar.gz
drakx-backup-do-not-use-e8a6ab3527cbb5a666fd830518cf4343aaf52f34.tar.bz2
drakx-backup-do-not-use-e8a6ab3527cbb5a666fd830518cf4343aaf52f34.tar.xz
drakx-backup-do-not-use-e8a6ab3527cbb5a666fd830518cf4343aaf52f34.zip
rollback debug statements
Diffstat (limited to 'perl-install/wizards.pm')
-rw-r--r--perl-install/wizards.pm7
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
}