![]() ![]() | ![]() |
version 1.178.2.11, 2004/03/22 09:41:53 | version 1.178.2.12, 2004/03/22 10:02:24 |
---|---|
Line 254 sub TieUserHash { | Line 254 sub TieUserHash { |
# Tie the database. | # Tie the database. |
my %hash; | my %hash; |
if(tie(%hash, 'GDBM_FILE', "$proname/$namespace.db", | if(tie(%hash, 'GDBM_File', "$proname/$namespace.db", |
$how, 0640)) { | $how, 0640)) { |
return \%hash; | return \%hash; |
} | } |