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

Torsten Seemann tseemann at dev.open-bio.org
Mon Sep 25 23:49:12 EDT 2006


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;
     }



More information about the Bioperl-guts-l mailing list