[Bioperl-guts-l] bioperl-live/Bio/Tools Hmmpfam.pm,1.3,1.4

[Allen Day]

Update of /home/repository/bioperl/bioperl-live/Bio/Tools
In directory pub.open-bio.org:/tmp/cvs-serv23724/Bio/Tools

Modified Files:
	Hmmpfam.pm 
Log Message:
make e-value default score displayed in gff, rather than raw score


Index: Hmmpfam.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/Tools/Hmmpfam.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Hmmpfam.pm	17 Apr 2005 05:58:31 -0000	1.3
--- Hmmpfam.pm	17 Apr 2005 06:04:43 -0000	1.4
***************
*** 124,129 ****
              
              ($feature{name}) = $self->seqname;
!             $feature{score} = $score;
              $feature{p_value} = sprintf ("%.3e", $evalue);
              $feature{start} = $start;
              $feature{end} = $end;
--- 124,130 ----
              
              ($feature{name}) = $self->seqname;
!             $feature{raw_score} = $score;
              $feature{p_value} = sprintf ("%.3e", $evalue);
+             $feature{score} = $feature{p_value};
              $feature{start} = $start;
              $feature{end} = $end;