«

I've been doing the following in order to use flock ie. covert a file
descriptor to a File Handle

my %hash;
my $hash = tie (%hash, 'DB_File', $listsDb, O_RDONLY|O_CREAT, 0644)
or
die "Cannot open $listsDb\n";

my $fd = $hash->fd;
open(DB_FH, "+<&=$fd") or die "dup $!";
flock (DB_FH, LOCK_SH) or die "flock: $!";


under BSD I get an error when I do this.

Can anybody tell me why?

Robert Nicholson wrote:
> I've been doing the following in order to use flock ie. covert a file
> descriptor to a File Handle
>
> my %hash;
> my $hash = tie (%hash, 'DB_File', $listsDb, O_RDONLY|O_CREAT, 0644)
> or
> die "Cannot open $listsDb\n";
>
> my $fd = $hash->fd;
> open(DB_FH, "+<&=$fd") or die "dup $!";
> flock (DB_FH, LOCK_SH) or die "flock: $!";
>
>
> under BSD I get an error when I do this.

Patient: Doctor it hurts when I do this.

Doctor: Well, don't do that.

(is BSD always on top?)


> Can anybody tell me why?

My ESP tells me ... wait ... I see an error on line 42 ... no ... wait ...
line 15 ... does "line 15" mean anything to you?




John
--
Perl isn't a toolbox, but a small machine shop where you can special-order
certain sorts of tools at low cost and in short order. -- Larry Wall