From dfed790c0269480654e83a9ff8e4c7dd47ef91df Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 2 Jul 2007 03:31:47 +0000
Subject: [PATCH] dollar signs are still regexp metacharacters, even inside
 character classes

---
 t/i18n/label.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/t/i18n/label.t b/t/i18n/label.t
index b8157fd1f..28cfc4442 100644
--- a/t/i18n/label.t
+++ b/t/i18n/label.t
@@ -35,7 +35,8 @@ my $lib = WebGUI::Test->lib;
 
 my $digits  = qr/(\d+)/;
 my $bareword  = qr/(\w+)/;
-my $quotelike = qr/((['"])([^'"\s$]+\s*)+(['"]))/;
+#my $quotelike = qr/((['"])([^'"\s$]+\s*)+(['"]))/;
+my $quotelike = qr/((['"])([^'"\s\$]+\s*)+(['"]))/;
 my $sub_args  = qr/(($quotelike|$digits)(,\s*)?)+/;
 my $sess_arg = qr/(?:\$session|\$self->session)/;
 my $subroutine = qr/