You are viewing a plain text version of this content. The canonical link for it is here.

Posted to modperl@perl.apache.org by z8...@zr.ru on 2000/11/05 22:01:21 UTC

mod_perl's bug or BerkeleyDB's bug?

Hi!
I'm in deep trouble.
I try to use BerkeleyDB , but cannot!
The situation is:
#cat test_db.pl
#!/usr/bin/perl
use BerkeleyDB;
use strict;
my ($dbenv,$db);
print <<END;
Content-Type: text/html

<HTML><HEAD><TITLE>Test mod_perl</TITLE></HEAD>
<BODY><pre>
END
$dbenv = new BerkeleyDB::Env -Home => ".",
        -Flags => DB_CREATE|DB_INIT_MPOOL|DB_INIT_LOCK;
if(defined $dbenv){print "\ndbenv defined";}else{print "dbenv not defined";}
my %h;
my $db = tie %h, 'BerkeleyDB::Hash', -Filename => "dbfile",
        -Flags     => DB_CREATE,
        -Env             => $dbenv;
if(defined $db){print "\ndb defined";}else{print "\ndb not defined";}
undef $db;
undef $dbenv;
untie %h;
print "</pre></body></html>";




When I run it throw http://myserver/dir/test_db.pl
I get ANYTIME: (!!!! ANYTIME !!!):
dbenv not defined
db not defined

What's the matter with BerkeleyDB!!!!?
How can I use it?

great thx in advance!

Ruslan.