[Bioperl-guts-l] bioperl-live/Bio/DB/SeqFeature/Store GFF3Loader.pm, 1.26, 1.27

Christopher John Fields cjfields at dev.open-bio.org
Tue Jul 17 14:37:08 EDT 2007


Update of /home/repository/bioperl/bioperl-live/Bio/DB/SeqFeature/Store
In directory dev.open-bio.org:/tmp/cvs-serv26314

Modified Files:
	GFF3Loader.pm 
Log Message:
Bug 2302

Index: GFF3Loader.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/DB/SeqFeature/Store/GFF3Loader.pm,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -d -r1.26 -r1.27
*** GFF3Loader.pm	15 Jul 2007 19:43:25 -0000	1.26
--- GFF3Loader.pm	17 Jul 2007 18:37:06 -0000	1.27
***************
*** 833,842 ****
    my $self = shift;
    my $att  = shift;
!   my @pairs =  map {my ($name,$value) = split /=/; [unescape($name) => unescape($value)] } split /;/,$att;
    my (%reserved,%unreserved);
    foreach (@pairs) {
      my $tag    = $_->[0];
      my @values = split /,/,$_->[1];
! 
      if ($Special_attributes{$tag}) {  # reserved attribute
        push @{$reserved{$tag}}, at values;
--- 833,842 ----
    my $self = shift;
    my $att  = shift;
!   my @pairs =  map {my ($name,$value) = split /=/; [unescape($name) => $value];  } split /;/,$att;
    my (%reserved,%unreserved);
    foreach (@pairs) {
      my $tag    = $_->[0];
      my @values = split /,/,$_->[1];
!     map {$_ = unescape($_);} @values;
      if ($Special_attributes{$tag}) {  # reserved attribute
        push @{$reserved{$tag}}, at values;



More information about the Bioperl-guts-l mailing list