This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
hand apply whitespace-mutiliated and reversed patch
authorLes Peters <lpeters@aol.net>
Tue, 16 Jun 1998 16:31:40 +0000 (12:31 -0400)
committerGurusamy Sarathy <gsar@cpan.org>
Thu, 18 Jun 1998 20:33:59 +0000 (20:33 +0000)
Message-Id: <199806162031.QAA08202@ds9>
Subject: [PATCH 5.004_67] Socket.xs tweak for IRIX 6.3

p4raw-id: //depot/perl@1148

ext/Socket/Socket.xs

index 09b41d3..82ed442 100644 (file)
@@ -796,7 +796,7 @@ unpack_sockaddr_un(sun_sv)
        e = addr.sun_path;
        while (*e && e < addr.sun_path + sizeof addr.sun_path)
            ++e;
-       ST(0) = sv_2mortal(newSVpvn(addr.sun_path, e - addr.sun_path));
+       ST(0) = sv_2mortal(newSVpv(addr.sun_path, e - addr.sun_path));
 #else
        ST(0) = (SV *) not_here("unpack_sockaddr_un");
 #endif