Dear Monks

When I run the following script

#!/usr/bin/perl
# what_did_i_say                   doom@kzsu.stanford.edu
#                                  07 May 2004
   
use warnings;
use strict;
$|=1;
   
my %fried;
   
use Fcntl;   # For O_RDWR, O_CREAT, etc.
use NDBM_File;
   
my $read_write_create =  O_RDWR;
$read_write_create += O_CREAT;

tie(%fried,
     'NDBM_File',
      'fried-hash.dbm',
       $read_write_create,
       0666) 
    or die "$0: tie failed: $!";
   
print "Last time you said: $fried{egg} \n" if defined( $fried{egg} );
$fried{egg} = $ARGV[0];
print "But I'll remember you said: $fried{egg}\n";

untie(%fried);
[download]

it produces on a specific system the following error:

./tie.pl: tie failed: No locks available at ./tie.pl line 15.
[download]

I guess this is an OS issue, but is there a perl-fix for this problem (turn locking off somehow!)?

cheers