![[BACK]](/icons/back.gif){kind=icon}
Return to clean_db.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / debugging_tools|
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; |
| } | } |