From 5d5e12a52a6a640a00d1b44d1fbca3e52b5a1832 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 17 Feb 2004 14:06:25 +0000
Subject: fix CREDITS parsing (do not ignore what's left after second comma)

---
 control-center | 2 +-
 credits2po     | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/control-center b/control-center
index f65c69ef..bbc738ac 100755
--- a/control-center
+++ b/control-center
@@ -983,7 +983,7 @@ sub about_mdk_cc() {
 
     foreach my $line (grep { $_ ne "\n" } cat_(top(glob("/usr/share/doc/mandrake-release-*/CREDITS")))) {
         if ($line =~ /^\s*\* (.*)$/) {
-            my ($contributor, $descr) = split(', ', $1);
+            my ($contributor, $descr) = split(', ', $1, 2);
             chomp($descr);
             $descr =~ s/(["@$])/\\$1/g;
             $credits_model->append_set(undef, map_index { $::i => $_ } map { join("\n", warp_text(translate(common::sprintf_fixutf8($_)), 30)) } $contributor, $descr);
diff --git a/credits2po b/credits2po
index b1b65d49..74e662cf 100755
--- a/credits2po
+++ b/credits2po
@@ -17,7 +17,7 @@ use common;
 ),
             (map {
                 if (/^\s*\* (.*)$/) {
-                    my ($contributor, $descr) = split(', ', $1);
+                    my ($contributor, $descr) = split(', ', $1, 2);
                     #if (/^\s*\* (.*), (.*)/) {
                     chomp($descr);
                     $descr =~ s/(["@$])/\\$1/g;
-- 
cgit v1.2.1