From: Graham Barr <gbarr@pobox.com>
Date: Wed, 3 Jun 1998 11:22:19 +0000 (-0500)
Subject: fix for undef as last arg to setsockopt
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=56ee16601913744d6296171b01432040a63238f8;p=p5sagit%2Fp5-mst-13.2.git

fix for undef as last arg to setsockopt

	Message-ID: <19980603112219.B7638@asic.sc.ti.com>

p4raw-id: //depot/perl@1093
---

diff --git a/pp_sys.c b/pp_sys.c
index ad9eee1..1814a59 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1968,7 +1968,7 @@ PP(pp_ssockopt)
 		buf = SvPV(sv, na);
 		len = na;
 	    }
-	    else if (SvOK(sv)) {
+	    else {
 		aint = (int)SvIV(sv);
 		buf = (char*)&aint;
 		len = sizeof(int);