changed delimiter in REC_TYPE SOLID to ;

[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..08cf6c8d0c5b77db18a2ffed035c843127b7003e 100644 (file)
--- a/code_perl/Maasha/Berkeley_DB.pm
+++ b/code_perl/Maasha/Berkeley_DB.pm
@@ -57,7 +57,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;
 }