[Biocorba-l] Bioperl biocorba server code checked in

[Brad Chapman]

--d3gfQ17Jw0
Content-Type: text/plain; charset=us-ascii
Content-Description: message body text
Content-Transfer-Encoding: 7bit

I just wrote:
> Proposed patches are attached.

Oops, sorry -- I forgot to attach one diff, sorry about that. Here's
the diff to PrimarySeqIterator to fix the problem with initializing with 
'items'.

Brad


--d3gfQ17Jw0
Content-Type: text/plain
Content-Description: PrimarySeqIterator.diff
Content-Disposition: inline;
	filename="PrimarySeqIterator.diff"
Content-Transfer-Encoding: 7bit

*** PrimarySeqIterator.pm.orig	Fri Feb 23 06:16:12 2001
--- PrimarySeqIterator.pm	Fri Feb 23 06:19:33 2001
***************
*** 80,89 ****
      } elsif ( $items && ref($items) !~ /array/i ) {
  	throw org::biocorba::seqcore::UnableToProcess 
  	    reason => "initializing a $class with an invalid argument ($items) instead of an array of items";  
!     } elsif( !$seqio || !ref($seqio) || ! $seqio->isa('Bio::SeqIO') ) {
  	throw org::biocorba::seqcore::UnableToProcess 
! 	    reason => "initializing a $class with an invalid argument for seqio, must a real Bio::SeqIO reference not ".ref($seqio).".";  
!     } 
      
      if( $items ) {
  	$self->_elements($items);
--- 80,93 ----
      } elsif ( $items && ref($items) !~ /array/i ) {
  	throw org::biocorba::seqcore::UnableToProcess 
  	    reason => "initializing a $class with an invalid argument ($items) instead of an array of items";  
!     } elsif( $seqio && ref($seqio) && ! $seqio->isa('Bio::SeqIO') ) {
  	throw org::biocorba::seqcore::UnableToProcess 
! 	    reason => "initializing a $class with an invalid argument for seqio, must a real Bio::SeqIO reference not ".ref($seqio).".";
!       } elseif (!$seqio && !$items) {
! 	throw org::biocorba::seqcore::UnableToProcess
! 	  reason => "initializing $class -- Neither 'seqio' nor 'items' passed";
!       }
! 
      
      if( $items ) {
  	$self->_elements($items);

--d3gfQ17Jw0--