[MacPerl] Flock

[Fred Giorgi <fgiorg@atl.com>]

Is Flock supported in MacPerl?

  use DB_File;
  use Fcntl ':flock';
  use strict;
tie and open , blah blah...
  unless (flock (DB_FH, LOCK_SH | LOCK_NB)) {
    print "$$: CONTENTION; can't read during write update!
            Waiting for read lock ($!) ....";
    unless (flock (DB_FH, LOCK_SH)) { die "flock: $!" }
    }
    print "$$: Read lock granted\n";

tells me:
# The flock() function is unimplemented.




***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch