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

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

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

Modified Files:
	API.pm 
Log Message:
Rewrite write(1) { ..; last if $cond } to { ..; redo if $cond }


Index: API.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/API.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** API.pm	21 Jun 2002 06:48:16 -0000	1.17
--- API.pm	28 Jun 2002 16:16:45 -0000	1.18
***************
*** 104,108 ****
      # modify $self->plugins in start tests hook
      my %initialized = ();
!     while(1) {
  	my $done = 1;
  
--- 104,108 ----
      # modify $self->plugins in start tests hook
      my %initialized = ();
!     {
  	my $done = 1;
  
***************
*** 114,118 ****
  		}
  		$initialized{$plugin} = 1;
! 		# we must on more round to check for uninitialized
  		# plugins
  		$done = 0;
--- 114,118 ----
  		}
  		$initialized{$plugin} = 1;
! 		# we must do one more round to check for uninitialized
  		# plugins
  		$done = 0;
***************
*** 120,124 ****
  	}
  
! 	last if $done;
      }
  
--- 120,124 ----
  	}
  
! 	redo unless $done;
      }