[Http-webtest-commits] CVS: HTTP-WebTest/lib/HTTP/WebTest/Plugin Hooks.pm,1.1,1.2

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

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

Modified Files:
	Hooks.pm 
Log Message:
Oops, commited actually non-working code


Index: Hooks.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin/Hooks.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Hooks.pm	15 Feb 2002 14:50:29 -0000	1.1
--- Hooks.pm	15 Feb 2002 15:33:54 -0000	1.2
***************
*** 105,109 ****
  
      for my $i (0 .. @$value / 2 - 1) {
! 	my ($ok, $comment) = @$value[$i, $i + 1];
  	$self->validate_value("$param\[$i]", $ok, 'yesno');
  	$self->validate_value("$param\[" . ($i + 1) . "]", $ok, 'scalar');
--- 105,109 ----
  
      for my $i (0 .. @$value / 2 - 1) {
! 	my ($ok, $comment) = @$value[2 * $i, 2 * $i + 1];
  	$self->validate_value("$param\[$i]", $ok, 'yesno');
  	$self->validate_value("$param\[" . ($i + 1) . "]", $ok, 'scalar');
***************
*** 128,133 ****
  	my @results = ();
  	for my $i (0 .. @$results / 2 - 1) {
! 	    my ($ok, $comment) = @$results[$i, $i + 1];
! 	    push @results, $self->test_result($ok, $comment);
  	}
  
--- 128,133 ----
  	my @results = ();
  	for my $i (0 .. @$results / 2 - 1) {
! 	    my ($ok, $comment) = @$results[2 * $i, 2 * $i + 1];
! 	    push @results, $self->test_result($ok =~ /yes/i ? 1 : 0, $comment);
  	}