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

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

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

Modified Files:
	Parser.pm 
Log Message:
Support nested brackets syntax


Index: Parser.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Parser.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** Parser.pm	21 Jun 2002 06:48:16 -0000	1.16
--- Parser.pm	22 Jun 2002 20:08:38 -0000	1.17
***************
*** 199,203 ****
  	    last if $_[0] =~ /\G \)/gcx;
  
! 	    my $value = _parse_scalar($_[0]);
  
  	    die "Missing right bracket\n"
--- 199,203 ----
  	    last if $_[0] =~ /\G \)/gcx;
  
! 	    my $value = _parse_value($_[0]);
  
  	    die "Missing right bracket\n"
***************
*** 208,212 ****
  	    if($_[0] =~ /\G $reHS* => $reHS* /gcx) {
  		# handles second part of scalar => scalar syntax
! 		my $value = _parse_scalar($_[0]);
  
  		die "Missing right bracket\n"
--- 208,212 ----
  	    if($_[0] =~ /\G $reHS* => $reHS* /gcx) {
  		# handles second part of scalar => scalar syntax
! 		my $value = _parse_value($_[0]);
  
  		die "Missing right bracket\n"