fix perl variables

MG-RAST · Nov 13, 2014 · f44d809 · f44d809
1 parent a8f0bbd
commit f44d809
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/bin/index_sims_file_md5 b/bin/index_sims_file_md5
@@ -40,6 +40,7 @@ unless ($in_file && (-s $in_file) && $out_file) {
 }
 
 # get m5nr BerkelyDB handle
+my $json = JSON->new->allow_nonref;
 my %m5nr;
 tie %m5nr, "BerkeleyDB::Hash",
         -Filename => $ann_file,
@@ -98,8 +99,8 @@ sub process_seeks {
         my ($md5, $start, $size) = @$set;
         if (exists $m5nr{$md5}) {
            my $data = $json->decode($m5nr{$md5});
-           if (exists $data{id}) {
-               $out .= join("\t", ($data{id}, $start, $size))."\n";
+           if (exists $data->{id}) {
+               $out .= join("\t", ($data->{id}, $start, $size))."\n";
            }
         }
     }