From 21a59089027fe0ed5d4ce6f7f1551d146f19e7f2 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 20 Aug 2022 00:10:55 +0100
Subject: [PATCH] prefork-interp: fixes

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

diff --git a/perl/Prefork.pm b/perl/Prefork.pm
index 5148420..800fcab 100644
--- a/perl/Prefork.pm
+++ b/perl/Prefork.pm
@@ -158,7 +158,7 @@ sub initialisation_complete {
   croak "$env_name doesn't offer protocol v1" unless grep { $_ eq 'v1' } @vsns;
   my @env_fds = split /,/, $env_data[1];
   croak "$env_name has too few fds" unless @env_fds >= 4;;
-  $#env_fds = 1;
+  $#env_fds = 3;
 
   my $num_servers = $opts{max_servers} // 4;
 
-- 
2.30.2