Change 13906 by jhi@alpha on 2001/12/27 13:58:18
Subject: [PATCH] Re: socketpair emulation
From: Nicholas Clark <[EMAIL PROTECTED]>
Date: Wed, 26 Dec 2001 20:08:14 +0000
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/ext/Socket/socketpair.t#3 edit
Differences ...
==== //depot/perl/ext/Socket/socketpair.t#3 (text) ====
Index: perl/ext/Socket/socketpair.t
--- perl/ext/Socket/socketpair.t.~1~ Thu Dec 27 07:15:05 2001
+++ perl/ext/Socket/socketpair.t Thu Dec 27 07:15:05 2001
@@ -31,7 +31,7 @@
if ($@ =~ /^Your vendor has not defined Socket macro AF_UNIX/) {
plan skip_all => 'No AF_UNIX';
} else {
- plan tests => 44;
+ plan tests => 45;
}
}
}
@@ -71,7 +71,9 @@
{
local $SIG{ALRM} = sub { warn "EOF on right took over 3 seconds" };
alarm 3;
+ $! = 0;
ok (eof RIGHT, "right is at EOF");
+ is ($!, '', 'and $! should report no error');
alarm 60;
}
End of Patch.
