8 eval { require AnyDBM_File }; # not all places have dbm* functions
9 skip_all("No dbm functions") if $@;
14 # This is [20020104.007] "coredump on dbmclose"
20 my $class = ref($proto) || $proto;
24 dbmopen(%LT, "dbmtest", 0666) ||
25 die "Can't open dbmtest because of $!\n";
31 dbmclose(%{$self->{'LT'}});
32 1 while unlink 'dbmtest';
33 1 while unlink <dbmtest.*>;
37 $test = Foo->new(); # must be package var
40 fresh_perl_is("require AnyDBM_File;\n$prog", 'ok', {}, 'explict require');
41 fresh_perl_is($prog, 'ok', {}, 'implicit require');
45 dbmopen(%LT, "dbmtest", 0666);
46 1 while unlink 'dbmtest';
47 1 while unlink <dbmtest.*>;
48 die "Failed to fail!";
51 fresh_perl_like($prog, qr/No dbm on this machine/, {},
52 'implicit require fails');
53 fresh_perl_like('delete $::{"AnyDBM_File::"}; ' . $prog,
54 qr/No dbm on this machine/, {},
55 'implicit require and no stash fails');