#!./perl
-# $RCSfile: dbm.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:43 $
-
-use Test::More;
-
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
require Config; import Config;
- if (($Config{'extensions'} !~ /\b(DB|[A-Z]DBM)_File\b/) ){
- plan skip_all => "1..0 # Skipping (no DB_File or [A-Z]DBM_File)\n";
- }
- else {
- plan tests => 12;
- }
-
+ require Test::More; import Test::More;
+ plan(tests, 12);
}
require AnyDBM_File;
if ($Is_Dosish || $^O eq 'MacOS') ;
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
$blksize,$blocks) = stat($Dfile);
- ok(($mode & 0777) == 0640 , "File permissions");
+ ok(($mode & 0777) == ($^O eq 'vos' ? 0750 : 0640) , "File permissions");
}
while (($key,$value) = each(%h)) {
my $compact = '';
-if ($AnyDBM_File::ISA[0] eq 'DB_File' && $DB_File::db_ver >= 2.004010) {
+if ($AnyDBM_File::ISA[0] eq 'DB_File' && ($DB_File::db_ver >= 2.004010 && $DB_File::db_ver < 3.001)) {
($major, $minor, $patch) = ($DB_File::db_ver =~ /^(\d+)\.(\d\d\d)(\d\d\d)/) ;
$major =~ s/^0+// ;
$minor =~ s/^0+// ;
# You are using DB_File $DB_File::VERSION and Berkeley DB $compact
#
# Berkeley DB 2 from version 2.4.10 onwards does not allow null keys.
- # This feature will be reenabled in a future version of Berkeley DB.
+ # This feature returned with version 3.1
#
}