diff options
| author | Stefan Siegel <siegel@linux-mandrake.com> | 2001-09-12 15:59:13 +0000 |
|---|---|---|
| committer | Stefan Siegel <siegel@linux-mandrake.com> | 2001-09-12 15:59:13 +0000 |
| commit | fbe4f21cb9c4b4947dab9f24ad0735c55c9a1024 (patch) | |
| tree | 223d5550f17b1ab9fd13759b60f3e233c8831757 /perl-install | |
| parent | 359c3556fdae05e2fb30b8eb485434ee532640a1 (diff) | |
| download | drakx-fbe4f21cb9c4b4947dab9f24ad0735c55c9a1024.tar drakx-fbe4f21cb9c4b4947dab9f24ad0735c55c9a1024.tar.gz drakx-fbe4f21cb9c4b4947dab9f24ad0735c55c9a1024.tar.bz2 drakx-fbe4f21cb9c4b4947dab9f24ad0735c55c9a1024.tar.xz drakx-fbe4f21cb9c4b4947dab9f24ad0735c55c9a1024.zip | |
fixed silly error
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/share/po/help_xml2pm.pl | 6 |
1 files 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/; |