1 files changed, 10 insertions, 8 deletions
diff --git a/bin/gettext-nget-patch b/bin/gettext-nget-patch
index 223bcc816..5ebd8bbcb 100755
--- a/bin/gettext-nget-patch
+++ b/bin/gettext-nget-patch
@@ -9,6 +9,7 @@ my %out;
 
 find( sub {
     next unless -f;
+    next if $File::Find::name =~ /ttc$/;
     open (FP, $_) or die $!;
     while (<FP>) {
         next unless /nget/;
@@ -17,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;