SessDBM.pm defined $dbtype as a knob for selecting which database to
use, but later on several places use AnyDBM_File instead.
*** SessDBM.pm.orig Wed Aug 5 17:38:02 1998
--- SessDBM.pm Wed Aug 5 17:39:06 1998
***************
*** 105,111 ****
my $filename = &main::format_special($self->{Filename}, $p);
my %online;
! tie (%online, 'AnyDBM_File', $filename, O_CREAT | O_RDWR, 0777)
|| &main::log($main::LOG_WARNING,
"$self->{Identifier} Could not open DBM online database
file '$filename': $!");
--- 105,111 ----
my $filename = &main::format_special($self->{Filename}, $p);
my %online;
! tie (%online, $dbtype, $filename, O_CREAT | O_RDWR, 0777)
|| &main::log($main::LOG_WARNING,
"$self->{Identifier} Could not open DBM online database
file '$filename': $!");
***************
*** 122,128 ****
my $filename = &main::format_special($self->{Filename}, $p);
my %online;
! tie (%online, 'AnyDBM_File', $filename, O_CREAT | O_RDWR, 0777)
|| &main::log($main::LOG_WARNING,
"$self->{Identifier} Could not open DBM online database
file '$filename': $!");
--- 122,128 ----
my $filename = &main::format_special($self->{Filename}, $p);
my %online;
! tie (%online, $dbtype, $filename, O_CREAT | O_RDWR, 0777)
|| &main::log($main::LOG_WARNING,
"$self->{Identifier} Could not open DBM online database
file '$filename': $!");
***************
*** 142,148 ****
my $filename = &main::format_special($self->{Filename}, $p);
my %online;
! tie (%online, 'AnyDBM_File', $filename, O_CREAT | O_RDWR, 0777)
|| &main::log($main::LOG_WARNING,
"$self->{Identifier} Could not open DBM online database
file '$filename': $!");
--- 142,148 ----
my $filename = &main::format_special($self->{Filename}, $p);
my %online;
! tie (%online, $dbtype, $filename, O_CREAT | O_RDWR, 0777)
|| &main::log($main::LOG_WARNING,
"$self->{Identifier} Could not open DBM online database
file '$filename': $!");
===
Archive at http://www.thesite.com.au/~radiator/
To unsubscribe, email '[EMAIL PROTECTED]' with
'unsubscribe radiator' in the body of the message.
