From 63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 24 Dec 1999 00:26:22 +0000
Subject: no_comment

---
 perl-install/lang.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 7a4d77785..897305b8c 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -237,7 +237,13 @@ sub load_po($) {
 
 	if (/^(#|$)/ && $state != 3) {
 	    $state = 3;
-	    $s .= qq("$from" => "$to",\n) if $from;
+	    if (my @l = $to =~ /%(\d+)\$/g) {
+		$to =~ s/%(\d+)\$/%/g;
+		$to = qq([ "$to", ) . join(",", map { $_ - 1 } @l) . " ],";
+	    } else {
+		$to = qq("$to");
+	    }
+	    $s .= qq("$from" => $to,\n) if $from;
 	    $from = $to = '';
 	}
 	$to .= (/"(.*)"/)[0] if $state == 1;
-- 
cgit v1.2.1