diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-10 06:51:24 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-10 06:51:24 +0000 |
| commit | 505fdf5d548cad40088ab9dcb60a4212a5c66af0 (patch) | |
| tree | 1f373a4fc4631981cd0e544d94aaba73d05d12d7 /ext/Socket | |
| parent | a40a317b715a38747586893811eae258898ef4d7 (diff) | |
| download | perl-505fdf5d548cad40088ab9dcb60a4212a5c66af0.tar.gz | |
In eof() the errno can get stomped by the peek-ahead.
p4raw-id: //depot/perl@19470
Diffstat (limited to 'ext/Socket')
| -rw-r--r-- | ext/Socket/socketpair.t | 3 |
1 files changed, 1 insertions, 2 deletions
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; } |