summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-16 13:02:11 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-16 13:02:11 +0000
commita109059e7acbb74a1294b9f807e430a119851a2b (patch)
treefe04e71b063a3d1df68118e6c48060c4aea302f6
parent3ef1067d6ad58b6f004cadf9f3cb454f5f4b6c07 (diff)
downloaddrakwizard-a109059e7acbb74a1294b9f807e430a119851a2b.tar
drakwizard-a109059e7acbb74a1294b9f807e430a119851a2b.tar.gz
drakwizard-a109059e7acbb74a1294b9f807e430a119851a2b.tar.bz2
drakwizard-a109059e7acbb74a1294b9f807e430a119851a2b.tar.xz
drakwizard-a109059e7acbb74a1294b9f807e430a119851a2b.zip
perl_checker fixes
-rwxr-xr-xdrakwizard.pl11
1 files changed, 5 insertions, 6 deletions
diff --git a/drakwizard.pl b/drakwizard.pl
index 058e81e1..8c51e8ad 100755
--- a/drakwizard.pl
+++ b/drakwizard.pl
@@ -35,7 +35,6 @@ $::Wizard_no_previous = 1;
$::Wizard_title = "Drakwizard";
$::Wiz_dir = '/usr/share/wizards/';
my $in = interactive->vnew;
-my $standalone = 1;
my %wiz = (
apache => ['Apache', N("Apache web server")],
@@ -69,7 +68,7 @@ require "MDK/Wizard/$wiz{$ARGV[0]}[0].pm";
my ($wiz, $err) = "MDK::Wizard::$wiz{$ARGV[0]}[0]"->new($wiz{$ARGV[0]}[2]);
if ($err) {
$::Wizard_finished = 1;
- $in->ask_okcancel(N("Error"), N($err));
+ $in->ask_okcancel(N("Error"), translate($err));
$in->exit;
}
wizard($wiz->{o});
@@ -89,7 +88,7 @@ sub wizard {
my ($res, $msg) = &{$o->{init}};
if (!$res) {
$in->ask_okcancel(N("Error"), $msg);
- exit if ! $::testing
+ exit() if ! $::testing
}
}
@@ -113,16 +112,16 @@ sub wizard {
if (ref $d->{boolean_list} && ref ${$d->{boolean_list}}) {
my $i;
foreach (@{${$d->{boolean_list}}}){
- push @{$data2}, { text => $_, type => 'bool', val => \${$d->{val}}->[$i], disabled => $d->{disabled} };
+ push @$data2, { text => $_, type => 'bool', val => \${$d->{val}}->[$i], disabled => $d->{disabled} };
$i++
}
} else {
- push @{$data2}, $d
+ push @$data2, $d
}
}
my $a = $in->ask_from($o->{name}, $page->{name}, $data2);
if ($a) {
- push @steps, $next if !$page->{ignore} && $steps[$#steps] ne $next;
+ push @steps, $next if !$page->{ignore} && $steps[-1] ne $next;
$next = defined $page->{post} ? $page->{post}() : 0;
defined $o->{pages}{$next} or $next = $page->{next};
} else {