From 100b4731827c03739ee6b1d4ebb8924b303fb91d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 14 Nov 2003 13:32:27 +0000
Subject: perl_checker fixes

---
 wiz2fake_c.pl | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

(limited to 'wiz2fake_c.pl')

diff --git a/wiz2fake_c.pl b/wiz2fake_c.pl
index 635eb6d9..879f9539 100755
--- a/wiz2fake_c.pl
+++ b/wiz2fake_c.pl
@@ -11,7 +11,7 @@ sub wrap {
 }
 
 sub load_wpo {
-    my ($tree, $tag ,$page) = @_;
+    my ($tree, $tag, $page) = @_;
     
     foreach my $leaf (@$tree) {
 	if (ref($leaf) eq 'ARRAY') {
@@ -26,7 +26,7 @@ sub load_wpo {
 	    $page->{$leaf->{helpText}} = "";
 	    $page->{$leaf->{description}} = "";
 	    $page->{$leaf->{nextButtonText}} = "";
-	} elsif(ref($leaf)=~ /\w\D/){
+	} elsif (ref($leaf) =~ /\w\D/) {
 	    $tag = $leaf;
 	}
     }
@@ -37,13 +37,14 @@ my $xmltree = XML::Parser->new(Style => 'Tree')->parsefile($ARGV[0]);
 my $wpo = load_wpo($xmltree);
 
 print STDERR "$ARGV[0] => ";
-my $fullname = "$ARGV[0]"."_.c";
+my $fullname = $ARGV[0] . "_.c";
 
-open(PO, "> $fullname");
+my $PO;
+open($PO, "> $fullname");
 
-foreach (keys %{$wpo}) {
+foreach (keys %$wpo) {
 #   print "$_\n";
-    $_ ne "" and print PO "printf(_(\"$_\"));\n";
+    $_ ne "" and print $PO qq(printf(_("$_"));\n);
 }
-close PO;
+close $PO;
 print STDERR "$fullname\n";
-- 
cgit v1.2.1