This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test::Harness::Straps::_default_inc shell problem
authorCraig A. Berry <craigberry@mac.com>
Sun, 23 Jan 2005 13:44:49 +0000 (07:44 -0600)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 24 Jan 2005 10:10:47 +0000 (10:10 +0000)
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <41F3FEB1.9020102@mac.com>

p4raw-id: //depot/perl@23871

lib/Test/Harness/Straps.pm

index ce7fa9a..c74e471 100644 (file)
@@ -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;
 }