Change 14058 by jhi@alpha on 2002/01/04 19:48:09
Some tweaks.
Affected files ...
.... //depot/perl/lib/Pod/t/Functions.t#2 edit
Differences ...
==== //depot/perl/lib/Pod/t/Functions.t#2 (text) ====
Index: perl/lib/Pod/t/Functions.t
--- perl/lib/Pod/t/Functions.t.~1~ Fri Jan 4 13:00:05 2002
+++ perl/lib/Pod/t/Functions.t Fri Jan 4 13:00:05 2002
@@ -3,7 +3,6 @@
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
-
}
use File::Basename;
@@ -55,13 +54,12 @@
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
End of Patch.
