summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Siegel <siegel@linux-mandrake.com>2002-02-17 20:27:29 +0000
committerStefan Siegel <siegel@linux-mandrake.com>2002-02-17 20:27:29 +0000
commit2eab2765506690b09ff7fa8ffe9b357dd7301f0f (patch)
tree144fd53a8275f2e5080db92b8368d5076012d4ed
parente04755cf53d82515452aa4ce69a6130aa5f9507c (diff)
downloaddrakx-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-xperl-install/share/po/help_xml2pm.pl7
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/;