From 25e4e6d225dac0a599c6aaa2e32cacb4bb135b0e Mon Sep 17 00:00:00 2001
From: Eric Bollengier <eric@eb.homelinux.org>
Date: Sat, 22 Dec 2007 16:45:12 +0000
Subject: [PATCH] ebl  Fix detection

git-svn-id: https://bacula.svn.sourceforge.net/svnroot/bacula/trunk@6099 91ce42f0-d328-0410-95d8-f526ca767f89
---
 gui/bweb/script/make_pot.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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;
-- 
2.39.5