--- loncom/debugging_tools/dump_db.pl	2005/03/18 19:44:38	1.4
+++ loncom/debugging_tools/dump_db.pl	2005/03/18 21:36:49	1.5
@@ -4,7 +4,7 @@
 #
 # dump_db.pl - dump a GDBM database to standard output, unescaping if asked to.
 #
-# $Id: dump_db.pl,v 1.4 2005/03/18 19:44:38 matthew Exp $
+# $Id: dump_db.pl,v 1.5 2005/03/18 21:36:49 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -33,7 +33,7 @@ use strict;
 use Getopt::Long;
 use GDBM_File;
 use Data::Dumper;
-use Storable qw(freeze thaw);
+use Storable qw(thaw);
 
 #
 # Options
@@ -68,7 +68,7 @@ END
 # Loop through ARGV getting files.
 while (my $fname = shift) {
     my %db;
-    if (! tie(%db,'GDBM_File',$fname,&GDBM_READER,0640)) {
+    if (! tie(%db,'GDBM_File',$fname,&GDBM_READER(),0640)) {
         warn "Unable to tie to $fname";
         next;
     }