[Http-webtest-commits] CVS: HTTP-WebTest/lib/HTTP/WebTest Parser.pm,1.3,1.4

[Ilya M. <m_...@us...>]

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>