diff options
| author | Philip Newton <pne@cpan.org> | 2003-08-07 11:05:17 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-07 06:15:54 +0000 |
| commit | e023fae810cffa432b2a2090b56cdacfc54ba116 (patch) | |
| tree | 9c931d34cf0cceaedf68c4aa8816abd4e796bf8d /ext | |
| parent | 8f927b4ac4eeefb659e47f942ed5ea81c29f1614 (diff) | |
| download | perl-e023fae810cffa432b2a2090b56cdacfc54ba116.tar.gz | |
Re: maint @ 20537
Message-ID: <s0l3jvo4mju2uu4f6pkq18istk02hme6j9@4ax.com>
p4raw-id: //depot/perl@20541
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Socket/Socket.xs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/Socket/Socket.xs b/ext/Socket/Socket.xs index 2c1bf68784..139e9cb903 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 |