prefork-interp: fixes

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/perl/Prefork.pm b/perl/Prefork.pm
index 4fbc2b58ad85f9cf613136e3471d60b62e4e8c90..fb54a91d84297ad3e9bd6599993b851fd9e456db 100644 (file)
--- a/perl/Prefork.pm
+++ b/perl/Prefork.pm
@@ -18,7 +18,7 @@ our $socket_path;
 
 sub fail_log ($) {
   my ($m) = @_;
-  syslog(LOG_ERROR, "$0: prefork [$$]: error: $m");
+  syslog(LOG_ERR, "$0: prefork [$$]: error: $m");
   _exit 127;
 }
 
@@ -80,7 +80,7 @@ sub protocol_read_fail ($) {
 }
 
 sub protocol_exchange () {
-  protocol_write('\n');
+  protocol_write("\n");
 
   @call_fds = map {
     my $r;