diff options
Diffstat (limited to 'credits2po')
-rwxr-xr-x | credits2po | 18 |
1 files changed, 12 insertions, 6 deletions
@@ -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"))), "}" ) ); |