From 200e7bea1a891e8bb8509ee85d8b0dd59df5074a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 30 Oct 2000 18:42:58 +0000
Subject: (load_po): backslash @ in po strings, otherwise the eval fails

---
 perl-install/lang.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/lang.pm')

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;
-- 
cgit v1.2.1