From d6be215a064ed5db8bc5c7b5b406ec7f052fda29 Mon Sep 17 00:00:00 2001
From: Dan Church <amphetamachine@gmail.com>
Date: Thu, 20 Jul 2023 14:00:46 -0500
Subject: [PATCH] Fix join()ed readline (PBP)

Use $/ to slurp the whole handle instead of splitting and joining.
---
 t/TestFunctions.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/t/TestFunctions.pm b/t/TestFunctions.pm
index 94d0e2a..cb9a100 100644
--- a/t/TestFunctions.pm
+++ b/t/TestFunctions.pm
@@ -121,10 +121,11 @@ sub run_script_capture {
         seek $handle, 0, 0;
     }
 
+    local $/;
     return (
         $?,
-        (join "\n", <CATCHOUT>),
-        (join "\n", <CATCHERR>)
+        scalar <CATCHOUT>, # slurp!
+        scalar <CATCHERR>, # slurp!
     );
 }