Why is this dup failing under BSD?

[Robert Nicholson]

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?

 

[John W. Krahn]

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