From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 4 Jan 2002 19:48:09 +0000 (+0000)
Subject: Some tweaks.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6170a8f81afca0a59db47412e13b09380757e14c;p=p5sagit%2Fp5-mst-13.2.git

Some tweaks.

p4raw-id: //depot/perl@14058
---

diff --git a/lib/Pod/t/Functions.t b/lib/Pod/t/Functions.t
index 43a6545..601aa50 100644
--- a/lib/Pod/t/Functions.t
+++ b/lib/Pod/t/Functions.t
@@ -3,7 +3,6 @@
 BEGIN {
 	chdir 't' if -d 't';
 	@INC = '../lib';
-
 }
 
 use File::Basename;
@@ -55,13 +54,12 @@ SKIP: {
 	my $test_out = do { local $/; <DATA> }; 
 	
 	skip( "Can't fork '$^X': $!", 1) 
-	    unless open my $fh, "$^X $pod_functions |";
+	    unless open my $fh, qq[$^X "-I../lib" $pod_functions |];
 	my $fake_out = do { local $/; <$fh> };
-	while ( <$fh> ) { $fake_out .= $_ }
 	skip( "Pipe error: $!", 1)
 	    unless close $fh;
 
-    is( $fake_out, $test_out, 'run as plain program' );
+	is( $fake_out, $test_out, 'run as plain program' );
 }
 
 =head1 NAME