dollar signs are still regexp metacharacters, even inside character classes
This commit is contained in:
parent
00c91f1ad0
commit
dfed790c02
1 changed files with 2 additions and 1 deletions
|
|
@ -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/
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue