p4raw-id: //depot/perl@27711
if ($is_win32) {
print "ok $_ # skipped: $is_win32\n" for 1..4;
} else {
- $pipe = new IO::Pipe->reader($perl, '-e', 'print qq(not ok 1)\n"');
+ $pipe = new IO::Pipe->reader($perl, '-e', 'print qq(not ok 1\n)');
while (<$pipe>) {
s/^not //;
print;