[Bio] / FigKernelPackages / gjoseqlib.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/gjoseqlib.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7, Sun Jun 10 17:34:54 2007 UTC revision 1.8, Tue Jun 26 15:20:16 2007 UTC
# Line 1  Line 1 
1  package gjoseqlib;  package gjoseqlib;
2    use Carp;
3    
4  #  A sequence entry is ( $id, $def, $seq )  #  A sequence entry is ( $id, $def, $seq )
5  #  A list of entries is a list of references  #  A list of entries is a list of references
# Line 439  Line 440 
440      my ( $fh, undef, $close, $unused ) = output_filehandle( shift );      my ( $fh, undef, $close, $unused ) = output_filehandle( shift );
441      ( unshift @_, $unused ) if $unused;      ( unshift @_, $unused ) if $unused;
442    
443      ( ref( $_[0] ) eq "ARRAY" ) or die "Bad sequence entry passed to print_alignment_as_fasta\n";      ( ref( $_[0] ) eq "ARRAY" ) or confess "Bad sequence entry passed to print_alignment_as_fasta\n";
444    
445      #  Expand the sequence entry list if necessary:      #  Expand the sequence entry list if necessary:
446    

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3