Pass nicer arguments to tie untie or die
authorceo <ceo>
Wed, 23 Oct 1996 18:54:42 +0000 (18:54 +0000)
committerceo <ceo>
Wed, 23 Oct 1996 18:54:42 +0000 (18:54 +0000)
database.pl

index 1d9725c..d24c3c3 100644 (file)
@@ -12,7 +12,7 @@ use Fcntl;
 sub dbmtie
 {
        local($filename,$href) = @_;
-       tie(%$href, DB_File, $filename, O_RDWR, $BTREE_HASH) || 
+       tie(%$href, DB_File, $filename, O_RDWR, 0600, $DB_HASH) || 
                die "Could not open $filename: $!";
 }
 
@@ -20,7 +20,7 @@ sub dbmuntie
 {
        local($href) = @_;
 
-       untie(%$href);
+       untie(%$href) || die;
 }
 
 1;