[Bioperl-guts-l] bioperl-run/Bio/Tools/Run Genewise.pm,1.20,1.21

[Jason Stajich]

Update of /home/repository/bioperl/bioperl-run/Bio/Tools/Run
In directory pub.open-bio.org:/tmp/cvs-serv13199/Bio/Tools/Run

Modified Files:
	Genewise.pm 
Log Message:
genewise tests should pass now on 2.2.3 and 2.2.0


Index: Genewise.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-run/Bio/Tools/Run/Genewise.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -d -r1.20 -r1.21
*** Genewise.pm	2 Jan 2004 00:15:59 -0000	1.20
--- Genewise.pm	25 Sep 2005 19:38:30 -0000	1.21
***************
*** 198,203 ****
      my $prog = $self->executable;
      my $string = `$prog -version`;
!     $string =~ /(Version *)/i;
!     return $1 || undef;
  }
  
--- 198,208 ----
      my $prog = $self->executable;
      my $string = `$prog -version`;
!     if( $string =~ /Version:\s+\$Name$/ ) {
! 	return $1;
!     } elsif( $string =~ /(Version *)/i ) {
! 	return $1;
!     } else { 
! 	return undef;
!     }
  }
  
***************
*** 287,291 ****
      my $status = system("$commandstring > $outfile1");
      $self->throw("Genewies call $commandstring crashed: $? \n") unless $status==0;
- 
      
      my $genewiseParser = Bio::Tools::Genewise->new(-file=> $outfile1);
--- 292,295 ----