[Bioperl-guts-l] bioperl-live/Bio WebAgent.pm,1.12,1.13

[Torsten Seemann]

Update of /home/repository/bioperl/bioperl-live/Bio
In directory dev.open-bio.org:/tmp/cvs-serv25344/Bio

Modified Files:
	WebAgent.pm 
Log Message:
Replaced warn() with $self->warn()


Index: WebAgent.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/WebAgent.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** WebAgent.pm	4 Jul 2006 22:23:13 -0000	1.12
--- WebAgent.pm	26 Sep 2006 03:49:10 -0000	1.13
***************
*** 76,80 ****
  =head1 APPENDIX
  
! This is actually the main documentation...
  
  =cut
--- 76,81 ----
  =head1 APPENDIX
  
! The rest of the documentation details each of the object
! methods. Internal methods are usually preceded with a _
  
  =cut
***************
*** 198,202 ****
     if (time - $LAST_INVOCATION_TIME < $self->delay) {
        my $delay = $self->delay - (time - $LAST_INVOCATION_TIME);
!       warn "sleeping for $delay seconds\n" if $self->verbose > 0;
        sleep $delay;
     }
--- 199,203 ----
     if (time - $LAST_INVOCATION_TIME < $self->delay) {
        my $delay = $self->delay - (time - $LAST_INVOCATION_TIME);
!       $self->warn("sleeping for $delay seconds\n");
        sleep $delay;
     }