Update .po file, and make prettify function do nget() properly.

1 files changed, 9 insertions, 8 deletions

diff --git a/bin/gettext-nget-patch b/bin/gettext-nget-patch
index eadc46d0e..5ebd8bbcb 100755
--- a/bin/gettext-nget-patch
+++ b/bin/gettext-nget-patch
@@ -18,16 +18,17 @@ find( sub {
         do {
             $text .= <FP>;
         } until $text =~ /\)/;
-        $text =~ /nget\(\s*"(.*?)"\s*,\s*"(.*?)"\s*,\s*(.*?)\s*\)/s;
-        $out{$1} = {
-            file => $File::Find::name,
-            line => $line,
-            s => $1,
-            p => $2,
-        };
+        if ($text =~ /nget\(\s*"(.*?)"\s*,\s*"(.*?)"\s*,\s*(.*?)\s*\)/s) {
+            $out{$1} = {
+                file => $File::Find::name,
+                line => $line,
+                s => $1,
+                p => $2,
+            };
+        }
     }
     close FP;
-}, 'templates');
+}, 'templates', 'perllib');
 
 foreach (values %out) {
     print <<EOF;