Merge branch 'dominican-republic-improvements'

1 files changed, 4 insertions, 4 deletions

diff --git a/bin/gettext-nget-patch b/bin/gettext-nget-patch
index d058bc784..67f98e319 100755
--- a/bin/gettext-nget-patch
+++ b/bin/gettext-nget-patch
@@ -18,12 +18,12 @@ find( sub {
         do {
             $text .= <FP>;
         } until $text =~ /\)/;
-        if ($text =~ /nget\(\s*"(.*?)"\s*,\s*"(.*?)"\s*,\s*(.*?)\s*\)/s) {
-            $out{$1} = {
+        if ($text =~ /nget\(\s*(['"])(.*?)\1\s*,\s*(['"])(.*?)\3\s*,\s*(.*?)\s*\)/s) {
+            $out{$2} = {
                 file => $File::Find::name,
                 line => $line,
-                s => $1,
-                p => $2,
+                s => $2,
+                p => $4,
             };
         }
     }