[Bioperl-guts-l] bioperl-live/Bio/DB WebDBSeqI.pm,1.63,1.64

Senduran Balasubramaniam sendu at dev.open-bio.org
Mon Jun 25 10:00:13 EDT 2007


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

Modified Files:
	WebDBSeqI.pm 
Log Message:
be silent if verbose 0 or less

Index: WebDBSeqI.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/DB/WebDBSeqI.pm,v
retrieving revision 1.63
retrieving revision 1.64
diff -C2 -d -r1.63 -r1.64
*** WebDBSeqI.pm	27 Apr 2007 15:05:07 -0000	1.63
--- WebDBSeqI.pm	25 Jun 2007 14:00:11 -0000	1.64
***************
*** 838,842 ****
     if (time - $LAST_INVOCATION_TIME < $self->delay) {
        my $delay = $self->delay - (time - $LAST_INVOCATION_TIME);
!       warn "sleeping for $delay seconds\n" if $self->verbose;
        sleep $delay;
     }
--- 838,842 ----
     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;
     }



More information about the Bioperl-guts-l mailing list