only complain if a problem actually happened

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;
     }
 }