summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorStefan Siegel <siegel@linux-mandrake.com>2001-09-12 15:59:13 +0000
committerStefan Siegel <siegel@linux-mandrake.com>2001-09-12 15:59:13 +0000
commitfbe4f21cb9c4b4947dab9f24ad0735c55c9a1024 (patch)
tree223d5550f17b1ab9fd13759b60f3e233c8831757 /perl-install
parent359c3556fdae05e2fb30b8eb485434ee532640a1 (diff)
downloaddrakx-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-xperl-install/share/po/help_xml2pm.pl6
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/;