dollar signs are still regexp metacharacters, even inside character classes

This commit is contained in:
Colin Kuskie 2007-07-02 03:31:47 +00:00
parent 00c91f1ad0
commit dfed790c02

View file

@ -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/