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; |
} |
} |