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

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

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

Modified Files:
	Parser.pm 
Log Message:
Fix error diagnostics


Index: Parser.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Parser.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** Parser.pm	6 Jun 2002 18:30:01 -0000	1.10
--- Parser.pm	15 Jun 2002 19:42:36 -0000	1.11
***************
*** 54,63 ****
      if($@) {
  	my $exc = $@;
  
  	my $parse_pos = pos $data;
  
! 	# find reminder of string near error (without surrounding
  	# whitespace)
! 	$data =~ /\G $reHS* (.*?) $reHS*/gcx;
  	my $near = $1;
  	if($near eq '') {
--- 54,64 ----
      if($@) {
  	my $exc = $@;
+ 	chomp $exc;
  
  	my $parse_pos = pos $data;
  
! 	# find rem\inder of string near error (without surrounding
  	# whitespace)
! 	$data =~ /\G $reHS* (.*?) $reHS* $/mx;
  	my $near = $1;
  	if($near eq '') {
***************
*** 238,241 ****
--- 239,243 ----
  	    my $ret = eval_in_playground($extracted);
  
+ 	    chomp $@;
  	    die "Eval error\n$@\n" if $@;
  
***************
*** 245,248 ****
--- 247,252 ----
  	    # which will be used as callback
  	    my $ret = make_sub_in_playground($extracted);
+ 
+ 	    chomp $@;
  	    die "Eval error\n$@\n" if $@;
  
***************
*** 256,259 ****
--- 260,264 ----
  	my $ret = make_sub_in_playground($extracted);
  
+ 	chomp $@;
  	die "Eval error\n$@\n" if $@;