diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-04 19:48:09 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-04 19:48:09 +0000 |
| commit | 6170a8f81afca0a59db47412e13b09380757e14c (patch) | |
| tree | 78f37187c70380c48159fc1d24e5f12bec8ca5fc /lib | |
| parent | cfaba70a429eb18ae13e2af4a687abaa42cbeb24 (diff) | |
| download | perl-6170a8f81afca0a59db47412e13b09380757e14c.tar.gz | |
Some tweaks.
p4raw-id: //depot/perl@14058
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Pod/t/Functions.t | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lib/Pod/t/Functions.t b/lib/Pod/t/Functions.t index 43a6545bd8..601aa50c9d 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 |