From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 6 Mar 2011 10:16:22 +0000 (+0000)
Subject: In inet_aton(), use newSVpvn_flags() instead of sv_newmortal(), sv_setpvn()
X-Git-Tag: accepted/trunk/20130322.191538~5126
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=013e295df0c07448c793c2b6d60b0a2400261e88;p=platform%2Fupstream%2Fperl.git

In inet_aton(), use newSVpvn_flags() instead of sv_newmortal(), sv_setpvn()

The API calls are equivalent, but the object code is slightly smaller.
---

diff --git a/ext/Socket/Socket.xs b/ext/Socket/Socket.xs
index e9a8c56..3e81105 100644
--- a/ext/Socket/Socket.xs
+++ b/ext/Socket/Socket.xs
@@ -431,9 +431,7 @@ inet_aton(host)
 		ok = 1;
 	}
 
-	ST(0) = sv_newmortal();
-	if (ok)
-		sv_setpvn( ST(0), (char *)&ip_address, sizeof ip_address );
+	ST(0) = newSVpvn_flags(ok ? (char *)&ip_address : NULL, sizeof ip_address, SVs_TEMP);
 	}
 
 void