From 2eab2765506690b09ff7fa8ffe9b357dd7301f0f Mon Sep 17 00:00:00 2001
From: Stefan Siegel <siegel@linux-mandrake.com>
Date: Sun, 17 Feb 2002 20:27:29 +0000
Subject: fix perl warnings after adding -w

---
 perl-install/share/po/help_xml2pm.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/share/po/help_xml2pm.pl b/perl-install/share/po/help_xml2pm.pl
index 6ab48a24a..7318f4a7b 100755
--- a/perl-install/share/po/help_xml2pm.pl
+++ b/perl-install/share/po/help_xml2pm.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 use XML::Parser;
 use MDK::Common;
@@ -20,6 +20,7 @@ my $base = delete $helps{en} || die;
 save_help($base);
 
 foreach my $lang (keys %helps) {
+    print "Now transforming: $lang\n";
     local *F;
     my ($charset) = cat_("$lang.po") =~ /charset=([^\\]+)/ or die "missing charset in $lang.po\n";
     open F, "| iconv -f utf8 -t $charset//TRANSLIT > help-$lang.pot";
@@ -35,7 +36,7 @@ foreach my $lang (keys %helps) {
 	print F qq("\n\n);
     }
 }
-
+unlink(".memdump");
 
 sub save_help {
     my ($help) = @_;
@@ -130,7 +131,7 @@ sub rewrite2_ {
 
     my $text = do {
 	my @l = map { rewrite2_($_) } @{$tree->{children}};
-	my $text;
+	my $text = "";
 	foreach (grep { !/^\s*$/ } @l) {
 	    s/^ // if $text =~ /\s$/;
 	    $text =~ s/ $// if /^\s/;
-- 
cgit v1.2.1