From ac944aed8881e97ae76973c39e22aaf165ceda1f Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 5 Dec 2005 05:31:40 +0000
Subject: [PATCH] fix regex to pick up another 400 tests

---
 t/i18n.t | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/t/i18n.t b/t/i18n.t
index 26d876f13..65dfd8507 100644
--- a/t/i18n.t
+++ b/t/i18n.t
@@ -31,10 +31,8 @@ initialize();  # this line is required
 
 my $digits  = qr/(\d+)/;
 my $bareword  = qr/(\w+)/;
-my $quotelike = qr/((['"])$bareword(['"]))/;
-my $subscript = qr/([\[{]\w+[\]\}])/;
-my $variable  = qr/(\$\w+($subscript)*)/;
-my $sub_args  = qr/(($quotelike|$digits),?)+/;
+my $quotelike = qr/((['"])($bareword\s*)+(['"]))/;
+my $sub_args  = qr/(($quotelike|$digits)(,\s*)?)+/;
 my $subroutine = qr/
 			  WebGUI::International::get
 			  \(			##Opening paren for optional arguments
@@ -110,7 +108,7 @@ sub label_finder_pm {
 	}
 	close $pmf;
 	while ($libFile =~ m/$subroutine/gc) {
-		my ($label, $namespace) = split /,/, $1;
+		my ($label, $namespace) = split /,\s*/, $1;
 		push @libLabels, {
 					file=>$File::Find::name,
 					label=>$label,