summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-10-30 18:42:58 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-10-30 18:42:58 +0000
commit200e7bea1a891e8bb8509ee85d8b0dd59df5074a (patch)
tree455e9f0251d3fbe0ee82a4d10d8f639e2b013b26 /perl-install/lang.pm
parenta027f49c7081446f3b3bed651c06b0d9a0cab992 (diff)
downloaddrakx-200e7bea1a891e8bb8509ee85d8b0dd59df5074a.tar
drakx-200e7bea1a891e8bb8509ee85d8b0dd59df5074a.tar.gz
drakx-200e7bea1a891e8bb8509ee85d8b0dd59df5074a.tar.bz2
drakx-200e7bea1a891e8bb8509ee85d8b0dd59df5074a.tar.xz
drakx-200e7bea1a891e8bb8509ee85d8b0dd59df5074a.zip
(load_po): backslash @ in po strings, otherwise the eval fails
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 17a559e56..79da314fe 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -370,6 +370,7 @@ sub load_po($) {
foreach (<F>) {
/^msgstr/ and $state = 1;
/^msgid/ && !$fuzzy and $state = 2;
+ s/@/\\@/g;
if (/^(#|$)/ && $state != 3) {
$state = 3;