From: Craig A. Berry <craigberry@mac.com>
Date: Sun, 23 Jan 2005 13:44:49 +0000 (-0600)
Subject: Test::Harness::Straps::_default_inc shell problem
X-Git-Tag: accepted/trunk/20130322.191538~21230
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=be2fd869b865f98d379a59b06d007a594bb39a17;p=platform%2Fupstream%2Fperl.git

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
--- 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;
 }