This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Some tweaks.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 4 Jan 2002 19:48:09 +0000 (19:48 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 4 Jan 2002 19:48:09 +0000 (19:48 +0000)
p4raw-id: //depot/perl@14058

lib/Pod/t/Functions.t

index 43a6545..601aa50 100644 (file)
@@ -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