diff options
Diffstat (limited to 'bin/gettext-nget-patch')
-rwxr-xr-x | bin/gettext-nget-patch | 8 |
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, }; } } |