| Subject: | 20_reverse.t of PerlIO-Util 0.51 |
Hi, Goro,
As you can see from my cpan-testers report 1876799, I think 20_reverse.t should be as
follows:
--- 20_reverse.t.org Fri Jul 11 03:50:21 2008
+++ 20_reverse.t Fri Jul 11 03:56:10 2008
@@ -99,7 +99,7 @@
}
ok !binmode(STDOUT, ':reverse'), ':reverse to output filehandle';
-ok open($r, '-| :raw', $^X, '-e', '"print qq{foo\nbar\n}"'), 'open pipe';
+ok open($r, '| :raw' . "$^X -e" . '"print qq{foo\nbar\n}"'), 'open pipe';
eval{
$r->push_layer('reverse');
};
In fact, modified 20_reverse.t is well done like this.
C:\temp\PerlIO-Util-0.51\t>prove 20_reverse.t
20_reverse....46/52 :crlf is not a raw layer at 20_reverse.t line 112.
20_reverse....ok
All tests successful.
Files=1, Tests=52, 2 wallclock secs ( 0.05 usr + 0.00 sys = 0.05 CPU)
Result: PASS
Regards,
Taro Nishino