Return to clean_db.pl CVS log | Up to [LON-CAPA] / loncom / debugging_tools |
version 1.1, 2005/03/18 20:07:21 | version 1.2, 2005/03/18 21:36:49 |
---|---|
Line 60 my $fname = shift; | Line 60 my $fname = shift; |
my $key_to_remove = shift; | my $key_to_remove = shift; |
my %db; | my %db; |
if (! tie(%db,'GDBM_File',$fname,&GDBM_WRITER,0640)) { | if (! tie(%db,'GDBM_File',$fname,&GDBM_WRITER(),0640)) { |
warn "Unable to tie to $fname"; | warn "Unable to tie to $fname"; |
exit; | exit; |
} | } |