Help for this page

Select Code to Download


  1. or download this
    use Fcntl qw(
O_WRONLY 
...

use MLDBM qw(AnyDBM_File Storable);
  2. or download this
    my $dbm = tie %{$self->{DB_HASH}}, 'MLDBM', $self->_db_filename, O_CRE
+AT|O_RDWR, FILE_CHMOD
  3. or download this
    sysopen(DB_SCHEDULE_SAFETYLOCK, $self->_lockfile_name,  O_RDWR|O_CREAT
+, FILE_CHMOD )
  4. or download this
     
use MLDBM qw(AnyDBM_File Storable);
use Storable qw(retrieve_fd);
...

untie %hash;