Test::Harness::Straps::_default_inc shell problem

From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <41F3FEB1.9020102@mac.com>

p4raw-id: //depot/perl@23871

diff --git a/lib/Test/Harness/Straps.pm b/lib/Test/Harness/Straps.pm
index ce7fa9a..c74e471 100644 (file)
--- a/lib/Test/Harness/Straps.pm
+++ b/lib/Test/Harness/Straps.pm
@@ -6,7 +6,7 @@ package Test::Harness::Straps;
 use strict;
 use vars qw($VERSION);
 use Config;
-$VERSION = '0.20';
+$VERSION = '0.20_01';
 
 use Test::Harness::Assert;
 use Test::Harness::Iterator;
@@ -477,7 +477,7 @@ sub _default_inc {
 
     local $ENV{PERL5LIB};
     my $perl = $self->_command;
-    my @inc =`$perl -le "print join qq[\n], \@INC"`;
+    my @inc =`$perl -le "print join qq[\\n], \@INC"`;
     chomp @inc;
     return @inc;
 }