From: Philip Newton <pne@cpan.org>
Date: Thu, 7 Aug 2003 09:05:17 +0000 (+0200)
Subject: Re: maint @ 20537
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e023fae810cffa432b2a2090b56cdacfc54ba116;p=p5sagit%2Fp5-mst-13.2.git

Re: maint @ 20537
Message-ID: <s0l3jvo4mju2uu4f6pkq18istk02hme6j9@4ax.com>

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

diff --git a/ext/Socket/Socket.xs b/ext/Socket/Socket.xs
index 2c1bf68..139e9cb 100644
--- a/ext/Socket/Socket.xs
+++ b/ext/Socket/Socket.xs
@@ -371,10 +371,10 @@ unpack_sockaddr_un(sun_sv)
 			addr.sun_family,
 			AF_UNIX);
 	}
-	e = addr.sun_path;
-	while (*e && e < addr.sun_path + sizeof addr.sun_path)
+	e = (char*)addr.sun_path;
+	while (*e && e < (char*)addr.sun_path + sizeof addr.sun_path)
 	    ++e;
-	ST(0) = sv_2mortal(newSVpvn(addr.sun_path, e - addr.sun_path));
+	ST(0) = sv_2mortal(newSVpvn(addr.sun_path, e - (char*)addr.sun_path));
 #else
 	ST(0) = (SV *) not_here("unpack_sockaddr_un");
 #endif