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

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

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

Modified Files:
	Parser.pm 
Log Message:
Fix checks for unclosed strings and code blocks


Index: Parser.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Parser.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** Parser.pm	15 Jun 2002 20:09:16 -0000	1.12
--- Parser.pm	15 Jun 2002 20:19:57 -0000	1.13
***************
*** 229,233 ****
  	my($extracted) = extract_delimited($_[0]);
  	die "Can't find string terminator \"$delim\"\n"
! 	    unless defined $extracted;
  
  	if($delim eq "'" or $extracted !~ /[\$\@\%]/) {
--- 229,233 ----
  	my($extracted) = extract_delimited($_[0]);
  	die "Can't find string terminator \"$delim\"\n"
! 	    if $extracted eq '';
  
  	if($delim eq "'" or $extracted !~ /[\$\@\%]/) {
***************
*** 253,257 ****
  	my($extracted) = extract_codeblock($_[0]);
  	die "Missing right curly bracket\n"
! 	    unless defined $extracted;
  
  	my $ret = make_sub_in_playground($extracted);
--- 253,257 ----
  	my($extracted) = extract_codeblock($_[0]);
  	die "Missing right curly bracket\n"
! 	    if $extracted eq '';
  
  	my $ret = make_sub_in_playground($extracted);