diff options
Diffstat (limited to 'drakwizard.pl')
| -rwxr-xr-x | drakwizard.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/drakwizard.pl b/drakwizard.pl index bbd54c8d..8a717466 100755 --- a/drakwizard.pl +++ b/drakwizard.pl @@ -67,9 +67,10 @@ my $o = []; $xmltree = XML::Parser->new(Style => 'Tree')->parsefile($ARGV[0]); get_parameter($o, $xmltree); -navigation($o, $o->[0]); +eval { navigation($o, $o->[0]) }; $in->exit; + sub translate { my ($format, @params) = @_; @@ -90,7 +91,7 @@ sub get_parameter { my $common_freetext_chooser; my %actions = ( Wizard => sub { - ($wizard_title, $lib_script, $perl_module, $rpm) = @{$leaf}{qw(wizardTitle libScript perlModule rpm)}; + ($Wizard_title, $lib_script, $perl_module, $rpm) = @{$leaf}{qw(wizardTitle libScript perlModule rpm)}; if ($perl_module) { ($::perl_module_name) = ($perl_module =~ /.*\/(.*)\.pm/); require $perl_module; |