From: Eric Bollengier <eric@eb.homelinux.org>
Date: Sat, 22 Dec 2007 16:45:12 +0000 (+0000)
Subject: ebl  Fix detection
X-Git-Tag: Release-3.0.0~2118
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=25e4e6d225dac0a599c6aaa2e32cacb4bb135b0e;p=bacula%2Fbacula

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 dec0c5ccdc..1d7a4723ed 100755
--- 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;