diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/AnyDBM_File.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/AnyDBM_File.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/AnyDBM_File.pm b/Master/tlpkg/tlperl/lib/AnyDBM_File.pm index d73abab0f9e..4153af2de2d 100644 --- a/Master/tlpkg/tlperl/lib/AnyDBM_File.pm +++ b/Master/tlpkg/tlperl/lib/AnyDBM_File.pm @@ -1,7 +1,9 @@ package AnyDBM_File; +use warnings; +use strict; use 5.006_001; -our $VERSION = '1.00'; +our $VERSION = '1.01'; our @ISA = qw(NDBM_File DB_File GDBM_File SDBM_File ODBM_File) unless @ISA; my $mod; @@ -13,7 +15,8 @@ for $mod (@ISA) { } die "No DBM package was successfully found or installed"; -#return 0; + +__END__ =head1 NAME @@ -39,7 +42,7 @@ can still do so, but new ones can reorder @ISA: Having multiple DBM implementations makes it trivial to copy database formats: - use POSIX; use NDBM_File; use DB_File; + use Fcntl; use NDBM_File; use DB_File; tie %newhash, 'DB_File', $new_filename, O_CREAT|O_RDWR; tie %oldhash, 'NDBM_File', $old_filename, 1, 0; %newhash = %oldhash; |