From 5d683f441f9873e0cceb199d58983c9dfb3e6652 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 12 Aug 2022 00:38:50 +0100
Subject: [PATCH] prefork-interp: fixes

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 perl/Prefork.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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;
-- 
2.30.2