support multiple gettext calls on one line

po/jsgettext.pl

@@ -50,26 +50,31 @@ $href->{''} = $po;
 sub extract_msg {
     my ($filename, $linenr, $line) = @_;
 
+    my $count = 0;
+
+    while(1) {
 	my $text;
-    if ($line =~ m/\Wgettext\s*\("((?:[^"\\]++|\\.)*+)"\)/) {
-	$text = $1;
-    } elsif ($line =~ m/\Wgettext\s*\('((?:[^'\\]++|\\.)*+)'\)/) {
-	$text = $1;
-    } else {
-	die "can't extract gettext message in '$filename' line $linenr\n";
+	if ($line =~ m/\Wgettext\s*\((("((?:[^"\\]++|\\.)*+)")|('((?:[^'\\]++|\\.)*+)'))\)/g) {
+	    $text = $3 || $5;
 	}
 	
+	last if !$text;
+
+	$count++;
+
 	my $ref = "$filename:$linenr";
 
 	if (my $po = $href->{$text}) {
 	    $po->reference($po->reference() . " $ref");
-	return;
-    }
-
+	} else {   
 	    my $po = new Locale::PO(-msgid=> $text, -reference=> $ref, -msgstr=> '');
 	    $href->{$text} = $po;
-}
+	}
+    };
 
+    die "can't extract gettext message in '$filename' line $linenr\n"
+	if !$count;
+}
 
 foreach my $s (@$sources) {
     open(SRC, $s) || die "unable to open file '$s' - $!\n";