Revert change #24223 : select() will continue

to return -1 on error, like in previous versions, and
like other system builtins.
p4raw-link: @24223 on //depot/perl: 5c477709a8f3aa3110d51ae872950c20ff14fed6

p4raw-id: //depot/perl@25418

1 files changed, 1 insertions, 4 deletions

diff --git a/pp_sys.c b/pp_sys.c
index f082b4c36e..12d2ac6690 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1148,10 +1148,7 @@ PP(pp_sselect)
 	}
     }
 
-    if (nfound == -1)
-	PUSHs(&PL_sv_undef);
-    else
-	PUSHi(nfound);
+    PUSHi(nfound);
     if (GIMME == G_ARRAY && tbuf) {
 	value = (NV)(timebuf.tv_sec) +
 		(NV)(timebuf.tv_usec) / 1000000.0;