From ccd865f3532f834a41087fbe84ba6cf70b5899c1 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 6 Dec 2005 00:49:20 +0000
Subject: [PATCH] additional tweak to regex to pickup more labels

---
 t/i18n.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/i18n.t b/t/i18n.t
index 65dfd8507..a70d19314 100644
--- a/t/i18n.t
+++ b/t/i18n.t
@@ -31,7 +31,7 @@ initialize();  # this line is required
 
 my $digits  = qr/(\d+)/;
 my $bareword  = qr/(\w+)/;
-my $quotelike = qr/((['"])($bareword\s*)+(['"]))/;
+my $quotelike = qr/((['"])([^'"\s]+\s*)+(['"]))/;
 my $sub_args  = qr/(($quotelike|$digits)(,\s*)?)+/;
 my $subroutine = qr/
 			  WebGUI::International::get