diff options
| author | Stefan Siegel <siegel@linux-mandrake.com> | 2002-02-17 20:27:29 +0000 |
|---|---|---|
| committer | Stefan Siegel <siegel@linux-mandrake.com> | 2002-02-17 20:27:29 +0000 |
| commit | 2eab2765506690b09ff7fa8ffe9b357dd7301f0f (patch) | |
| tree | 144fd53a8275f2e5080db92b8368d5076012d4ed | |
| parent | e04755cf53d82515452aa4ce69a6130aa5f9507c (diff) | |
| download | drakx-2eab2765506690b09ff7fa8ffe9b357dd7301f0f.tar drakx-2eab2765506690b09ff7fa8ffe9b357dd7301f0f.tar.gz drakx-2eab2765506690b09ff7fa8ffe9b357dd7301f0f.tar.bz2 drakx-2eab2765506690b09ff7fa8ffe9b357dd7301f0f.tar.xz drakx-2eab2765506690b09ff7fa8ffe9b357dd7301f0f.zip | |
fix perl warnings after adding -w
| -rwxr-xr-x | perl-install/share/po/help_xml2pm.pl | 7 |
1 files changed, 4 insertions, 3 deletions
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/; |