Fix for Debian bug #661793, reported by and solved by Olivier Sallou …

…<olivier.sallou@irisa.fr>
bioperl · Mar 3, 2012 · 2b0daf1 · 2b0daf1
1 parent f538d67
commit 2b0daf1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Bio/DB/SeqFeature/Store/berkeleydb3.pm b/Bio/DB/SeqFeature/Store/berkeleydb3.pm
@@ -498,7 +498,7 @@ sub build_summary_statistics {
     my $num_cmp_tre         = DB_File::BTREEINFO->new;
     $num_cmp_tree->{compare} = sub { $_[0] <=> $_[1] };
     $num_cmp_tree->{flags}   = R_DUP;
-    my $s = tie %sort, 'DB_File', $name, 0666, O_CREAT|O_RDWR, $num_cmp_tree 
+    my $s = tie %sort, 'DB_File', $name, O_CREAT|O_RDWR, 0666, $num_cmp_tree 
         or $self->throw("Could not create Berkeley DB in temporary file '$name': $!");
 
     my $index    = $self->index_db('locations');