graphics/gimp
graphics/gimp
1
0
Fork 0
mirror of https://gitlab.gnome.org/GNOME/gimp synced 2024-10-21 03:52:33 +00:00
Code Issues Packages Projects Releases Wiki Activity

see plug-ins/perl/Changes

Browse source
This commit is contained in:
Marc Lehmann 2000-04-01 19:27:20 +00:00
parent 4d9844dc59
commit 9a15485344
3 changed files with 3 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
plug-ins/perl/po/ChangeLog
View file

@ -1,11 +1,3 @@
2000-04-01 Sven Neumann <sven@gimp.org>
* it.po: updates from Daniele Medri <madrid@linux.it>
Thu Mar 30 21:26:08 CEST 2000 Stanislav Brabec <utx@penguin.cz>
* cs.po: Updated translation.
Thu Mar 30 07:11:26 CEST 2000 Marc Lehmann <pcg@goof.com>
* Makefile.PL: implemented Sven's suggestions (well, at least some

4
plug-ins/perl/po/Makefile.PL
View file

@ -34,8 +34,8 @@ datadir = $datadir
$MSGFMT -o \$*.gmo \$*.po
%.po: gimp-perl.pot
msgmerge -w 83 \$*.po gimp-perl.pot >\$*.po~
if cmp -s \$*.po~ \$*.po; then : ; else mv \$*.po~ \$*.po; fi
-msgmerge -w 83 \$*.po gimp-perl.pot >\$*.po~
-if cmp -s \$*.po~ \$*.po; then : ; else mv \$*.po~ \$*.po; fi
all :: update-gmo

2
plug-ins/perl/pxgettext
View file

@ -29,7 +29,7 @@ msgstr ""
EOF
while(<>) {
while (/[N_]_\(?"((?:[^"\\]+|\\.)*)"\)?/sg) {
while (/(?:N|_)_\(?"((?:[^"\\]+|\\.)*)"\)?/sg) {
my $s = $1;
my $e = "\n";
if ($s =~ /\n/) {