summaryrefslogtreecommitdiffstats
path: root/drakwizard.pl
diff options
context:
space:
mode:
Diffstat (limited to 'drakwizard.pl')
-rwxr-xr-xdrakwizard.pl5
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;