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

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

Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest
In directory usw-pr-cvs1:/tmp/cvs-serv10522/lib/HTTP/WebTest

Modified Files:
	Parser.pm 
Log Message:
Fix bug with handling of $ @ chars in test parameter values enclosed
in double quotes


Index: Parser.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Parser.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Parser.pm	8 Feb 2002 14:31:34 -0000	1.6
--- Parser.pm	12 Feb 2002 11:47:20 -0000	1.7
***************
*** 103,108 ****
  		 # let Perl remove quote chars and handle special
  		 # sequences like \n but don't treat $ and @ as
! 		 # special
! 		 $extracted =~ s/(\$|\@)/\\\\$1/g if $delim eq '"';
  		 my $string = eval "$extracted";
  		 $string;
--- 103,114 ----
  		 # let Perl remove quote chars and handle special
  		 # sequences like \n but don't treat $ and @ as
! 		 # special. Note \\\\ in patterns. It is actually just
! 		 # *one* backslash. Four chars are because of double
! 		 # quoting (one inside parser grammar definition,
! 		 # second inside regexp body)
!                  if($delim eq '"') {
!                      $extracted =~ s/(^|[^\\\\])((?:\\\\\\\\)*)(\\\\)(\$|\@)/$1$2$3$3$4/g;
!     		     $extracted =~ s/(\$|\@)/\\\\$1/g;
!                  }
  		 my $string = eval "$extracted";
  		 $string;