fopen = open + flock?

[karl]

also so funktioniert es :) ist das jetzt die beste (und einfachste) lösung dafür oder kennt jemand ne bessere? oder krieg ich so irgendweclhe probleme?

use subs 'flock';
$use_flock = 0;
sub flock {
  if ($use_flock == 0) {
    return undef;
  } else {
    return CORE::flock($_[0], $_[1]);
  }
}