From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 11 Aug 2022 23:38:50 +0000 (+0100)
Subject: prefork-interp: fixes
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=5d683f441f9873e0cceb199d58983c9dfb3e6652;p=chiark-utils.git

prefork-interp: fixes

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

diff --git a/perl/Prefork.pm b/perl/Prefork.pm
index 4fbc2b5..fb54a91 100644
--- 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;