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"
16 my $filename = tempfile();
23 my $class = ref($proto) || $proto;
27 dbmopen(%LT, $filename, 0666) ||
28 die "Can't open $filename because of $!\n";
34 dbmclose(%{$self->{'LT'}});
35 1 while unlink $filename;
36 1 while unlink glob "$filename.*";
40 $test = Foo->new(); # must be package var
43 $prog =~ s/\@\@\@\@/$filename/;
45 fresh_perl_is("require AnyDBM_File;\n$prog", 'ok', {}, 'explict require');
46 fresh_perl_is($prog, 'ok', {}, 'implicit require');
50 dbmopen(%LT, $filename, 0666);
51 1 while unlink $filename;
52 1 while unlink glob "$filename.*";
53 die "Failed to fail!";
56 fresh_perl_like($prog, qr/No dbm on this machine/, {},
57 'implicit require fails');
58 fresh_perl_like('delete $::{"AnyDBM_File::"}; ' . $prog,
59 qr/No dbm on this machine/, {},
60 'implicit require and no stash fails');