1 files changed, 2 insertions, 2 deletions
diff --git a/bin/gettext-nget-patch b/bin/gettext-nget-patch
index 67f98e319..5d30cc922 100755
--- a/bin/gettext-nget-patch
+++ b/bin/gettext-nget-patch
@@ -15,9 +15,9 @@ find( sub {
         next unless /nget/;
         my $line = $.;
         my $text = $_;
-        do {
+        while ($text !~ /\)/) {
             $text .= <FP>;
-        } until $text =~ /\)/;
+        }
         if ($text =~ /nget\(\s*(['"])(.*?)\1\s*,\s*(['"])(.*?)\3\s*,\s*(.*?)\s*\)/s) {
             $out{$2} = {
                 file => $File::Find::name,