This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix syntax error in io_pipe test
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 4 Apr 2006 11:14:27 +0000 (11:14 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 4 Apr 2006 11:14:27 +0000 (11:14 +0000)
p4raw-id: //depot/perl@27711

ext/IO/t/io_pipe.t

index 9b7d6f4..857d3d0 100755 (executable)
@@ -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;