Re: BerkelyDB problem - seg fault 11

[prev] [thread] [next] [Date index for 2005/04/15]

Perrin Harkins zee op 15/4/05 17:19:

> Rick Jansen wrote:
>>     # crashes:
>>     my $DB_Object = new BerkeleyDB::Hash
>>                       -Filename => $DB,
>> 	              -Env  => $Env,
>>                       -Flags => DB_RDONLY ...
> 
> The rest of the flags here may be relevant.
> 
>> To avoid name collisions the application is split in a main program
>> calling a run-routine from a separate module
> 
> Does one of these run before mod_perl forks?  That would cause problems. 
>   Maybe the one above gets loaded at startup?

No, that should not be the case, I think. The env-open and the  "new
BerkeleyDB::Hash" are actually called in the run routine, like below,
simplified. Any idea why it does run as a required library, but not as a
module?

Application:

  use strict;
  use Appl::ApplMain;

  Appl::ApplMain::run();


Appl/ApplMain.pm:

  package Appl::ApplMain;

  my $Env;

  sub run {
    # Open env if not open
    $Env = new BerkeleyDB::Env if (! $Env);

    # crashes on second run if the close below is not done:
    my $DB_Object = new BerkeleyDB::Hash
                      -Filename => $DB,
	              -Env  => $Env,
                      -Flags => DB_RDONLY ...

    $Env->close(); undef $Env;  # Else crash on 2nd run...
  }  # run

  1;

        -- 
        Rick