From 0bbc70d689e942d9affd1f560de9791b44da847e Mon Sep 17 00:00:00 2001
From: Tom Bloor <tbsliver@shadow.cat>
Date: Mon, 27 Jul 2020 12:24:04 +0100
Subject: [PATCH] Quote $^X in system call incase of spaces in filename

---
 t/Plack-Handler/output_encoding.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/Plack-Handler/output_encoding.t b/t/Plack-Handler/output_encoding.t
index 72270fae5..fc4df5153 100644
--- a/t/Plack-Handler/output_encoding.t
+++ b/t/Plack-Handler/output_encoding.t
@@ -29,7 +29,7 @@ sub run {
 sub test_handler {
     my ( $handler, $mangler, $mangle_file ) = @_;
 
-    system( "$^X $mangler Plack::Handler::$handler > $mangle_file" );
+    system( "\"$^X\" $mangler Plack::Handler::$handler > $mangle_file" );
     like read_file( $mangle_file ), qr/test\ntest/, '\n is not converted';
     unlink $mangle_file;