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.
