Deal correctly with spaces in pathnames

[catagits/Test-EOL.git] / t / 12-fail.t

diff --git a/t/12-fail.t b/t/12-fail.t
index a5387d1..9d7a38b 100644 (file)
--- a/t/12-fail.t
+++ b/t/12-fail.t
@@ -5,7 +5,7 @@ use Test::More qw(no_plan);
 use File::Temp qw( tempdir tempfile );
 
 my $perl  = $^X || 'perl';
-my $inc = join(' -I ', @INC) || '';
+my $inc = join(' -I ', map { qq{"$_"} } @INC) || '';
 $inc = "-I $inc" if $inc;
 
 {