- warn "sending response\n";
- flock($writer, LOCK_EX); #acquire write lock
- #lock($lock_file);
- nstore_fd($rv, $writer) or die "can't send response: $!";
- $writer->flush;
- #unlock($lock_file);
- flock($writer, LOCK_UN); #release write lock
-#
- warn "child exiting\n";
+ warn "sending response\n" if $Debug;
+ flock($writer, LOCK_EX) or die "FATAL: can't lock write stream: $!";
+ nstore_fd($rv, $writer) or die "FATAL: can't send response: $!";
+ $writer->flush or die "FATAL: can't flush: $!";
+ flock($writer, LOCK_UN) or die "WARNING: can't release write lock: $!";
+
+ warn "child exiting\n" if $Debug;