[Bioperl-guts-l] [15044] bioperl-live/trunk/Bio/SeqIO/chadoxml.pm: hash ref, not a hash

Christopher John Fields cjfields at dev.open-bio.org
Fri Nov 28 00:47:14 EST 2008


Revision: 15044
Author:   cjfields
Date:     2008-11-28 00:47:14 -0500 (Fri, 28 Nov 2008)

Log Message:
-----------
hash ref, not a hash

Modified Paths:
--------------
    bioperl-live/trunk/Bio/SeqIO/chadoxml.pm

Modified: bioperl-live/trunk/Bio/SeqIO/chadoxml.pm
===================================================================
--- bioperl-live/trunk/Bio/SeqIO/chadoxml.pm	2008-11-28 05:42:41 UTC (rev 15043)
+++ bioperl-live/trunk/Bio/SeqIO/chadoxml.pm	2008-11-28 05:47:14 UTC (rev 15044)
@@ -2012,14 +2012,14 @@
         if ($term =~ /(\S+):(\S+)/) {
             my $db  = $1;
             my $acc = $2;
-            $hashref = (
+            $hashref = {
                     'cvterm_id' => {
                         'dbxref_id' => {
                            'db_id' => { 'name' => $db },
                            'accession' => $acc
                                       },
                                    },
-                       );
+                       };
         }
         push(@arr, {cvterm_id => $hashref});
     }
@@ -2068,13 +2068,13 @@
                 $acc = $1;
                 $version = $2;
             }
-            $hashref = (
+            $hashref = {
                          'dbxref_id' => {
                                'db_id' => { 'name' => $db },
                                'accession' => $acc,
                                'version'   => $version,
                                         },
-                       );
+                       };
         }
         else {
             $self->throw("I don't know how to handle a dbxref like $term");
@@ -2110,12 +2110,12 @@
     my $source = $seq->source();
     return @arr unless $source;
 
-    my $hashref = (
+    my $hashref = {
                'dbxref_id' => {
                        'db_id' => {'name' => 'GFF_source'},
                        'accession' => $source,
                               }
-                  );
+                  };
 
     push(@arr, {'dbxref_id' => $hashref});
     return @arr;




More information about the Bioperl-guts-l mailing list