Help for this page

Select Code to Download


  1. or download this
    sysopen($fh, "$dir/$name", O_CREAT | O_EXCL | O_RDWR, 0600);
  2. or download this
    system ("lockfile -2 -r 5 $base_dir/.lock")  == 0
        or diehtml("Lock error: ", $? >> 8, "\n");
...
    print ORDERFILE @_;
    close ORDERFILE or warn "Something fishy with closing the order: $
+!\n";
}