Fixes this error seen on perl 5.005_02 on irix.
perl t/harness
t/op/basic..........Use of uninitialized value at lib/Parrot/Test.pm line 81.
# Failed test (t/op/basic.t at line 6)
# got: undef
# expected: ''
[josh-016.patch]
Index: lib/Parrot/Test.pm
===================================================================
RCS file: /home/perlcvs/parrot/lib/Parrot/Test.pm,v
retrieving revision 1.17
diff -u -r1.17 Test.pm
--- lib/Parrot/Test.pm 1 Feb 2002 18:20:27 -0000 1.17
+++ lib/Parrot/Test.pm 3 Mar 2002 03:39:07 -0000
@@ -77,7 +77,7 @@
open OUTPUT, "< $out_f";
{
local $/ = undef;
- $prog_output = <OUTPUT>;
+ $prog_output = <OUTPUT> . '';
$prog_output =~ s/\cM\cJ/\n/g;
}
close OUTPUT;
--
Josh Wilmes ([EMAIL PROTECTED]) | http://www.hitchhiker.org
