fixed QA_Illumina_report.rb encoding

[biopieces.git] / code_perl / Maasha / Berkeley_DB.pm

diff --git a/code_perl/Maasha/Berkeley_DB.pm b/code_perl/Maasha/Berkeley_DB.pm
index be6639cb9dcfb3cb3b2a0f8d1e0bc4ce8d67db9a..b5aadc9b462c0937aea1c05149718fc4e5ade6f5 100644 (file)
--- a/code_perl/Maasha/Berkeley_DB.pm
+++ b/code_perl/Maasha/Berkeley_DB.pm
@@ -29,6 +29,7 @@ package Maasha::Berkeley_DB;
 # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 
 
+use warnings;
 use strict;
 use Data::Dumper;
 use Maasha::Common;
@@ -57,7 +58,7 @@ sub db_init
 
     my ( %hash );
 
-    tie %hash, "DB_File", $path or &Maasha::Common::error( "Could not tie-open DB file '$path': $!" );
+    tie %hash, "DB_File", $path or Maasha::Common::error( "Could not tie-open DB file '$path': $!" );
 
     return wantarray ? %hash : \%hash;
 }