From 505fdf5d548cad40088ab9dcb60a4212a5c66af0 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 10 May 2003 06:51:24 +0000
Subject: In eof() the errno can get stomped by the peek-ahead.

p4raw-id: //depot/perl@19470
---
 ext/Socket/socketpair.t | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'ext/Socket')

diff --git a/ext/Socket/socketpair.t b/ext/Socket/socketpair.t
index c600079899..9d86be626c 100644
--- a/ext/Socket/socketpair.t
+++ b/ext/Socket/socketpair.t
@@ -124,8 +124,7 @@ SKIP: {
   ok (eof RIGHT, "right is at EOF");
   local $TODO = "Known problems with unix sockets on $^O"
       if $^O eq 'unicos' || $^O eq 'unicosmk';
-  # is ($!, '', 'and $! should report no error');
-  ok(1, 'skip this $! test for now');
+  is ($!, '', 'and $! should report no error');
   alarm 60;
 }
 
-- 
cgit v1.2.1