Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest
In directory usw-pr-cvs1:/tmp/cvs-serv15007/lib/HTTP/WebTest
Modified Files:
Parser.pm
Log Message:
Rules for test parameters value quoting have been changed to be more
Perl alike.
Index: Parser.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Parser.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Parser.pm 29 Jan 2002 03:52:40 -0000 1.3
--- Parser.pm 8 Feb 2002 14:07:39 -0000 1.4
***************
*** 99,103 ****
qscalar: { $extracted = extract_delimited($text) }
! { substr $extracted, 1, length($extracted) - 2 }
uscalar: <rulevar: $word_re = qr/ (?: [^=)\s] | [^)\s] (?!>) ) /x>
--- 99,111 ----
qscalar: { $extracted = extract_delimited($text) }
! {
! my $delim = substr $extracted, 0, 1;
! # let Perl remove quote chars and handle special
! # sequences like \n but don't tread $ and @ as
! # special
! $extracted =~ s/(\$|\@)/\\$1/g if $delim eq '"';
! my $string = eval "$extracted";
! $string;
! }
uscalar: <rulevar: $word_re = qr/ (?: [^=)\s] | [^)\s] (?!>) ) /x>
|
