fix CREDITS parsing (do not ignore what's left after second comma)

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;