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.

Reply via email to