loncom/debugging_tools/dump_db.pl - diff

Return to dump_db.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

version 1.4, 2005/03/18 19:44:38	version 1.5, 2005/03/18 21:36:49
Line 33 use strict;	Line 33 use strict;
use Getopt::Long;	use Getopt::Long;
use GDBM_File;	use GDBM_File;
use Data::Dumper;	use Data::Dumper;
use Storable qw(freeze thaw);	use Storable qw(thaw);

#	#
# Options	# Options
Line 68 END	Line 68 END
# Loop through ARGV getting files.	# Loop through ARGV getting files.
while (my $fname = shift) {	while (my $fname = shift) {
my %db;	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";	warn "Unable to tie to $fname";
next;	next;
}	}