From 459eedd7dc7ef289f379d2fc1dc691a057d1e144 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 18 Nov 2004 13:25:45 +0000
Subject: remove some unneeded ";", add some for normalization (as told by
 perl_checker)

---
 perl-install/wizards.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'perl-install/wizards.pm')

diff --git a/perl-install/wizards.pm b/perl-install/wizards.pm
index 2ae0af4ca..cb40c881e 100644
--- a/perl-install/wizards.pm
+++ b/perl-install/wizards.pm
@@ -119,7 +119,7 @@ sub process {
         my ($res, $msg) = &{$o->{init}};
         if (!$res) {
             $in->ask_okcancel(N("Error"), $msg);
-            die "wizard failled" if !$::testing
+            die "wizard failled" if !$::testing;
         }
     }
     
@@ -146,10 +146,10 @@ sub process {
                 my $i;
                 foreach (@{$d->{boolean_list}}) { 
                     push @$data2, { text => $_, type => 'bool', val => \${$d->{val}}->[$i], disabled => $d->{disabled} };
-                    $i++
+                    $i++;
                 }
             } else {
-                push @$data2, $d
+                push @$data2, $d;
             }
         }
         my $name = ref($page->{name}) ? $page->{name}->() : $page->{name};
@@ -185,9 +185,9 @@ sub process {
             die qq(Step "$current": inexistant "$next" page) if !exists $o->{pages}{$next};
         } else {
             # step back:
-            $next = pop @steps
+            $next = pop @steps;
         }
-        $page = $o->{pages}{$next}
+        $page = $o->{pages}{$next};
     }
 }
 
-- 
cgit v1.2.1