ebl Fix detection

git-svn-id: https://bacula.svn.sourceforge.net/svnroot/bacula/trunk@6099 91ce42f0-d328-0410-95d8-f526ca767f89

diff --git a/gui/bweb/script/make_pot.pl b/gui/bweb/script/make_pot.pl
index dec0c5ccdc295f72bdf3aaf5efbcfca99e77f38e..1d7a4723edf61d87e8cd544e71fbc27f78a0ef54 100755 (executable)
--- a/gui/bweb/script/make_pot.pl
+++ b/gui/bweb/script/make_pot.pl
@@ -20,8 +20,9 @@ foreach my $f (@ARGV)
     open(FP, $f) or print STDERR "Can't open $f for reading\n";
     while (my $l = <FP>)
     {
-       if ($l =~ m/__(.+?)__/) {
-           my $s = $1;
+        my (@str) = ($l =~ m/__(.+?)__/g);
+
+        while (my $s = shift @str) {
            my $r = ''; #$tab->{$s} || $s;
            $s =~ s/\n/\\n/g;
            $s =~ s/"/\\"/g;