[Bioperl-guts-l] bioperl-live/Bio/DB/GFF/Adaptor memory.pm, 1.30, 1.31

Lincoln Stein lstein at pub.open-bio.org
Mon Jul 11 13:24:52 EDT 2005


Update of /home/repository/bioperl/bioperl-live/Bio/DB/GFF/Adaptor
In directory pub.open-bio.org:/tmp/cvs-serv11585

Modified Files:
	memory.pm 
Log Message:
fixed undefined variable warning


Index: memory.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/DB/GFF/Adaptor/memory.pm,v
retrieving revision 1.30
retrieving revision 1.31
diff -C2 -d -r1.30 -r1.31
*** memory.pm	11 Apr 2005 18:48:48 -0000	1.30
--- memory.pm	11 Jul 2005 17:24:50 -0000	1.31
***************
*** 180,184 ****
    $feature_hash->{strand} = '' if $feature_hash->{strand} && $feature_hash->{strand} eq '.';
    $feature_hash->{phase}  = ''  if $feature_hash->{phase}  && $feature_hash->{phase} eq '.';
!   $feature_hash->{gclass} = 'Sequence' if length $feature_hash->{gclass} == 0;
    # sort by group please
    push @{$self->{tmp}{$feature_hash->{gclass},$feature_hash->{gname}}},$feature_hash;
--- 180,184 ----
    $feature_hash->{strand} = '' if $feature_hash->{strand} && $feature_hash->{strand} eq '.';
    $feature_hash->{phase}  = ''  if $feature_hash->{phase}  && $feature_hash->{phase} eq '.';
!   $feature_hash->{gclass} = 'Sequence' unless defined $feature_hash->{gclass};
    # sort by group please
    push @{$self->{tmp}{$feature_hash->{gclass},$feature_hash->{gname}}},$feature_hash;



More information about the Bioperl-guts-l mailing list