diff options
| author | Robin Barker <RMBarker@cpan.org> | 2004-03-17 18:37:10 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-03-17 19:13:03 +0000 |
| commit | c0fd1b4283835f2ec7b48824dd974b16677cdf78 (patch) | |
| tree | a89289222cc935daa5548c20862a2ab942328de7 /ext/Socket | |
| parent | b9d46b3942a9a8cce9cbca1e08f61ac23083a740 (diff) | |
| download | perl-c0fd1b4283835f2ec7b48824dd974b16677cdf78.tar.gz | |
format/casting/warning RE: perl 5.9.1
Message-ID: <533D273D4014D411AB1D00062938C4D90404682E@hotel.npl.co.uk>
p4raw-id: //depot/perl@22521
Diffstat (limited to 'ext/Socket')
| -rw-r--r-- | ext/Socket/Socket.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Socket/Socket.xs b/ext/Socket/Socket.xs index d2c0ae56bc..56443400f5 100644 --- a/ext/Socket/Socket.xs +++ b/ext/Socket/Socket.xs @@ -376,7 +376,7 @@ unpack_sockaddr_un(sun_sv) e = (char*)addr.sun_path; /* On Linux, the name of abstract unix domain sockets begins * with a '\0', so allow this. */ - while ((*e || e == addr.sun_path && e[1] && sockaddrlen > 1) + while ((*e || (e == addr.sun_path && e[1] && sockaddrlen > 1)) && e < (char*)addr.sun_path + sizeof addr.sun_path) ++e; ST(0) = sv_2mortal(newSVpvn(addr.sun_path, e - (char*)addr.sun_path)); |