summaryrefslogtreecommitdiffstats
path: root/credits2po
diff options
context:
space:
mode:
Diffstat (limited to 'credits2po')
-rwxr-xr-xcredits2po18
1 files changed, 12 insertions, 6 deletions
diff --git a/credits2po b/credits2po
index e10dc527..b1b65d49 100755
--- a/credits2po
+++ b/credits2po
@@ -15,12 +15,18 @@ use lib qw(/usr/lib/libDrakX);
use common;
{
),
- (map {
- my ($contributor, $descr) = split(', ', $_, 2);
- chomp($descr);
- $descr =~ s/(["@$])/\\$1/g;
- qq(\tN("$contributor") => N("$descr"),);
- } cat_(glob("/usr/share/doc/mandrake-release-*/CREDITS"))),
+ (map {
+ if (/^\s*\* (.*)$/) {
+ my ($contributor, $descr) = split(', ', $1);
+ #if (/^\s*\* (.*), (.*)/) {
+ chomp($descr);
+ $descr =~ s/(["@$])/\\$1/g;
+ join('', qq(\tN("$contributor") => ), $descr ? qq(N("$descr"),) : '"",');
+ } else {
+ chomp;
+ qq(\tN("$_") => "",);
+ }
+ } grep { $_ ne "\n" } cat_(glob("/usr/share/doc/mandrake-release-*/CREDITS"))),
"}"
)
);