[LON-CAPA-cvs] cvs: loncom /debugging_tools clean_db.pl dump_db.pl

[albertel]

albertel		Fri Mar 18 16:36:50 2005 EDT

  Modified files:              
    /loncom/debugging_tools	clean_db.pl dump_db.pl 
  Log:
  - don't wann pas arugments to these functions
  
  
Index: loncom/debugging_tools/clean_db.pl
diff -u loncom/debugging_tools/clean_db.pl:1.1 loncom/debugging_tools/clean_db.pl:1.2
--- loncom/debugging_tools/clean_db.pl:1.1	Fri Mar 18 15:07:21 2005
+++ loncom/debugging_tools/clean_db.pl	Fri Mar 18 16:36:49 2005
@@ -4,7 +4,7 @@
 #
 # dump_db.pl - dump a GDBM database to standard output, unescaping if asked to.
 #
-# $Id: clean_db.pl,v 1.1 2005/03/18 20:07:21 albertel Exp $
+# $Id: clean_db.pl,v 1.2 2005/03/18 21:36:49 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -60,7 +60,7 @@
 my $key_to_remove = shift;
 
 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";
     exit;
 }
Index: loncom/debugging_tools/dump_db.pl
diff -u loncom/debugging_tools/dump_db.pl:1.4 loncom/debugging_tools/dump_db.pl:1.5
--- loncom/debugging_tools/dump_db.pl:1.4	Fri Mar 18 14:44:38 2005
+++ loncom/debugging_tools/dump_db.pl	Fri Mar 18 16:36:49 2005
@@ -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 Getopt::Long;
 use GDBM_File;
 use Data::Dumper;
-use Storable qw(freeze thaw);
+use Storable qw(thaw);
 
 #
 # Options
@@ -68,7 +68,7 @@
 # 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;
     }