diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-04-04 11:14:27 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-04-04 11:14:27 +0000 |
| commit | ea56da60b10dea4813f8c9e7926a9690d01aaa72 (patch) | |
| tree | 9c43480245b8371f241444d2f153d841093c5ebf /ext/IO | |
| parent | 2f78ce11bc4a9355ade5d20a0825b10fbb177169 (diff) | |
| download | perl-ea56da60b10dea4813f8c9e7926a9690d01aaa72.tar.gz | |
Fix syntax error in io_pipe test
p4raw-id: //depot/perl@27711
Diffstat (limited to 'ext/IO')
| -rwxr-xr-x | ext/IO/t/io_pipe.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/IO/t/io_pipe.t b/ext/IO/t/io_pipe.t index 9b7d6f401a..857d3d0e33 100755 --- a/ext/IO/t/io_pipe.t +++ b/ext/IO/t/io_pipe.t @@ -49,7 +49,7 @@ print "1..10\n"; 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; |