This file is free software: you can redistribute it and\/or modify
it under the terms of the GNU Affero General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
This file is free software: you can redistribute it and\/or modify
it under the terms of the GNU Affero General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
foreach my $s (@$sources) {
open(SRC, $s) || die "unable to open file '$s' - $!\n";
while(defined(my $line = <SRC>)) {
foreach my $s (@$sources) {
open(SRC, $s) || die "unable to open file '$s' - $!\n";
while(defined(my $line = <SRC>)) {
if ($line =~ m/gettext\s*\(/) {
extract_msg($s, $., $line);
}
if ($line =~ m/gettext\s*\(/) {
extract_msg($s, $., $line);
}