[Bioperl-guts-l] bioperl-live/Bio/Tools GFF.pm,1.68,1.68.2.1

Jason Stajich jason at dev.open-bio.org
Tue Nov 6 14:54:17 EST 2007


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

Modified Files:
      Tag: lightweight_feature_branch
	GFF.pm 
Log Message:
remove old naming

Index: GFF.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/Tools/GFF.pm,v
retrieving revision 1.68
retrieving revision 1.68.2.1
diff -C2 -d -r1.68 -r1.68.2.1
*** GFF.pm	1 Oct 2007 15:18:12 -0000	1.68
--- GFF.pm	6 Nov 2007 19:54:15 -0000	1.68.2.1
***************
*** 735,739 ****
  		 $frame);
  
!    foreach my $tag ( $feat->all_tags ) {
         foreach my $value ( $feat->each_tag_value($tag) ) {
  	   $str .= " $tag=$value" if $value;
--- 735,739 ----
  		 $frame);
  
!    foreach my $tag ( $feat->get_all_tags ) {
         foreach my $value ( $feat->each_tag_value($tag) ) {
  	   $str .= " $tag=$value" if $value;
***************
*** 812,821 ****
  
     
!    my @all_tags = $feat->all_tags;
     my @group;
     if (@all_tags) {  # only play this game if it is worth playing...
         foreach my $tag ( @all_tags ) {
  	   my @v;
! 	   foreach my $value ( $feat->each_tag_value($tag) ) {
   	       unless( defined $value && length($value) ) {
  		   $value = '""';
--- 812,821 ----
  
     
!    my @all_tags = $feat->get_all_tags;
     my @group;
     if (@all_tags) {  # only play this game if it is worth playing...
         foreach my $tag ( @all_tags ) {
  	   my @v;
! 	   foreach my $value ( $feat->get_tag_values($tag) ) {
   	       unless( defined $value && length($value) ) {
  		   $value = '""';
***************
*** 914,918 ****
  	foreach my $tag ( @all_tags ) {
  	    my @v;
! 	    foreach my $value ( $feat->each_tag_value($tag) ) {
  		unless( defined $value && length($value) ) {
  		    $value = '""';
--- 914,918 ----
  	foreach my $tag ( @all_tags ) {
  	    my @v;
! 	    foreach my $value ( $feat->get_tag_values($tag) ) {
  		unless( defined $value && length($value) ) {
  		    $value = '""';



More information about the Bioperl-guts-l mailing list