From: Graham Knop <haarg@haarg.org>
Date: Mon, 3 Aug 2020 10:57:17 +0000 (+0200)
Subject: escape INSTALL_BASE properly for EUMM to parse
X-Git-Tag: v1.42~12
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Devel.git;a=commitdiff_plain;h=70d67e3c3d80049e192be80576863de31bd23165

escape INSTALL_BASE properly for EUMM to parse
---

diff --git a/t/generated_app.t b/t/generated_app.t
index d83032e..30b2fce 100644
--- a/t/generated_app.t
+++ b/t/generated_app.t
@@ -23,8 +23,14 @@ my $instdir = tempdir(CLEANUP => 1);
 
 my $MAKE = $Config{make} || 'make';
 
-$ENV{PERL_MM_OPT} = "INSTALL_BASE=$instdir";
-$ENV{INSTALL_BASE} = $instdir;
+my $escaped_path = $instdir;
+$escaped_path =~ s/\\/\\\\/g;
+if ($escaped_path =~ s/ /\\ /g) {
+  $escaped_path = qq{"$escaped_path"};
+}
+
+$ENV{PERL_MM_OPT} = "INSTALL_BASE=$escaped_path";
+
 if ($ENV{MAKEFLAGS}) {
     $ENV{MAKEFLAGS} =~ s/PREFIX=[^\s]+//;
     $ENV{MAKEFLAGS} =~ s/INSTALL_BASE=[^\s]+//;