1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-12-24 04:33:24 +00:00

- fix the problem caused by ports/84292

Pointy hat to:	leeym
PR:		84313
Submitted by:	maintainer
This commit is contained in:
Yen-Ming Lee 2005-07-30 00:32:53 +00:00
parent 3c77f983e7
commit a3c5b61442
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=140427
4 changed files with 80 additions and 2 deletions

View File

@ -7,6 +7,7 @@
PORTNAME= IO-Socket-INET6
PORTVERSION= 2.51
PORTREVISION= 1
CATEGORIES= net perl5 ipv6
MASTER_SITES= ${MASTER_SITE_PERL_CPAN}
MASTER_SITE_SUBDIR= IO
@ -22,4 +23,10 @@ MAN3= IO::Socket::INET6.3
PERL_CONFIGURE= yes
.include <bsd.port.mk>
.include <bsd.port.pre.mk>
.if ${PERL_LEVEL} < 500600
EXTRA_PATCHES= ${PATCHDIR}/5.005_03.diff
.endif
.include <bsd.port.post.mk>

View File

@ -0,0 +1,32 @@
$FreeBSD$
--- INET6.pm.orig
+++ INET6.pm
@@ -10,7 +10,7 @@
package IO::Socket::INET6;
use strict;
-our(@ISA, $VERSION);
+use vars qw(@ISA $VERSION);
use IO::Socket;
use Socket;
use Socket6;
@@ -22,7 +22,7 @@
$VERSION = "2.51";
#Purpose: allow protocol independent protocol and original interface.
-my $EINVAL = exists(&Errno::EINVAL) ? Errno::EINVAL() : 1;
+my $EINVAL = defined(&Errno::EINVAL) ? Errno::EINVAL() : 1;
IO::Socket::INET6->register_domain( AF_INET6 );
@@ -190,7 +190,7 @@
}
if ($arg->{ReusePort}) {
- $sock->sockopt(SO_REUSEPORT,1) or
+ $sock->sockopt(0x0200,1) or
return _error($sock, $!, "sockopt: $!");
}

View File

@ -7,6 +7,7 @@
PORTNAME= IO-Socket-INET6
PORTVERSION= 2.51
PORTREVISION= 1
CATEGORIES= net perl5 ipv6
MASTER_SITES= ${MASTER_SITE_PERL_CPAN}
MASTER_SITE_SUBDIR= IO
@ -22,4 +23,10 @@ MAN3= IO::Socket::INET6.3
PERL_CONFIGURE= yes
.include <bsd.port.mk>
.include <bsd.port.pre.mk>
.if ${PERL_LEVEL} < 500600
EXTRA_PATCHES= ${PATCHDIR}/5.005_03.diff
.endif
.include <bsd.port.post.mk>

View File

@ -0,0 +1,32 @@
$FreeBSD$
--- INET6.pm.orig
+++ INET6.pm
@@ -10,7 +10,7 @@
package IO::Socket::INET6;
use strict;
-our(@ISA, $VERSION);
+use vars qw(@ISA $VERSION);
use IO::Socket;
use Socket;
use Socket6;
@@ -22,7 +22,7 @@
$VERSION = "2.51";
#Purpose: allow protocol independent protocol and original interface.
-my $EINVAL = exists(&Errno::EINVAL) ? Errno::EINVAL() : 1;
+my $EINVAL = defined(&Errno::EINVAL) ? Errno::EINVAL() : 1;
IO::Socket::INET6->register_domain( AF_INET6 );
@@ -190,7 +190,7 @@
}
if ($arg->{ReusePort}) {
- $sock->sockopt(SO_REUSEPORT,1) or
+ $sock->sockopt(0x0200,1) or
return _error($sock, $!, "sockopt: $!");
}