diff --git a/plug-ins/perl/po/ChangeLog b/plug-ins/perl/po/ChangeLog
index dc1c7f6933..91198d2196 100644
--- a/plug-ins/perl/po/ChangeLog
+++ b/plug-ins/perl/po/ChangeLog
@@ -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
diff --git a/plug-ins/perl/po/Makefile.PL b/plug-ins/perl/po/Makefile.PL
index dacb833210..be66f22bc2 100644
--- a/plug-ins/perl/po/Makefile.PL
+++ b/plug-ins/perl/po/Makefile.PL
@@ -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
 
diff --git a/plug-ins/perl/pxgettext b/plug-ins/perl/pxgettext
index 91b1c11cfa..b3bed58535 100755
--- a/plug-ins/perl/pxgettext
+++ b/plug-ins/perl/pxgettext
@@ -29,7 +29,7 @@ msgstr ""
 EOF
 
 while(<>) {
-    while (/[N_]_\(?"((?:[^"\\]+|\\.)*)"\)?/sg) {
+    while (/(?:N|_)_\(?"((?:[^"\\]+|\\.)*)"\)?/sg) {
        my $s = $1;
        my $e = "\n";
        if ($s =~ /\n/) {