[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.35, Tue Aug 12 20:19:44 2014 UTC revision 1.36, Tue Aug 12 20:23:18 2014 UTC
# Line 2664  Line 2664 
2664  #-------------------------------------------------------------------------------  #-------------------------------------------------------------------------------
2665  sub is_sequence_triple  sub is_sequence_triple
2666  {  {
2667      $_[0] && ref( $_[0] eq 'ARRAY' ) && ( @$_[0] == 3 ) && defined( $_[0]->[0] ) && defined( $_[0]->[2] );      local $_ = $_[0];
2668        $_ && ref( $_ eq 'ARRAY' ) && ( @$_ == 3 ) && defined( $_->[0] ) && defined( $_->[2] );
2669  }  }
2670    
2671  sub is_array_of_sequence_triples  sub is_array_of_sequence_triples
2672  {  {
2673      $_[0] && ref( $_[0] eq 'ARRAY' ) && @{ $_[0] } == grep { is_sequence_triple( $_ ) } @{ $_[0] };      local $_ = $_[0];
2674        $_ && ref( $_ eq 'ARRAY' ) && @$_ == grep { is_sequence_triple( $_ ) } @$_;
2675  }  }
2676    
2677  1;  1;

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3