From fbe4f21cb9c4b4947dab9f24ad0735c55c9a1024 Mon Sep 17 00:00:00 2001 From: Stefan Siegel Date: Wed, 12 Sep 2001 15:59:13 +0000 Subject: fixed silly error --- perl-install/share/po/help_xml2pm.pl | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/perl-install/share/po/help_xml2pm.pl b/perl-install/share/po/help_xml2pm.pl index 6fc07af61..08455030d 100755 --- a/perl-install/share/po/help_xml2pm.pl +++ b/perl-install/share/po/help_xml2pm.pl @@ -25,7 +25,7 @@ foreach my $lang (keys %helps) { print F "\n"; foreach my $id (keys %{$helps{$lang}}) { $base->{$id} or die "$lang:$id doesn't exist in english\n"; - print F qq(# DO NOT BOTHER TO MODIFY HERE, SEE cvs.mandrakesoft.com:/cooker doc/manual/literal/drakx/$lang/drakx-help.xml\n); + print F qq(# DO NOT BOTHER TO MODIFY HERE, SEE:\n# cvs.mandrakesoft.com:/cooker/doc/manual/literal/drakx/$lang/drakx-help.xml\n); print F qq(msgid ""\n"); print F join(qq(\\n"\n"), split "\n", $base->{$id}); print F qq("\nmsgstr ""\n"); @@ -138,9 +138,7 @@ sub rewrite2_ { } elsif (member($tree->{tag}, 'footnote')) { '(*)' } elsif ($tree->{tag} eq 'keycap') { - $text =~ s/^(\s+)/$1]/; - $text =~ s/(\s+)$/[$1/; - $text; + "[" . $text . "]"; } elsif ($tree->{tag} eq 'warning') { $text =~ s/^(\s+)/$1!! /; $text =~ s/(\s+)$/ !!$1/; -- cgit v1.2.1