blob: 03f3cc9ffa4f8f6325f91d557a8bb5aef1749796 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
--- INET6.pm.orig Tue Jun 24 14:14:26 2003
+++ INET6.pm Wed Jul 2 21:33:28 2003
@@ -10,7 +10,7 @@
package IO::Socket::INET6;
use strict;
-our(@ISA, $VERSION);
+use vars qw(@ISA $VERSION);
use IO::Socket;
use Socket6;
use Carp;
@@ -20,7 +20,7 @@
@ISA = qw(IO::Socket);
$VERSION = "1.27";
-my $EINVAL = exists(&Errno::EINVAL) ? Errno::EINVAL() : 1;
+my $EINVAL = defined(&Errno::EINVAL) ? Errno::EINVAL() : 1;
IO::Socket::INET6->register_domain( AF_INET6 );
@@ -183,7 +183,7 @@
}
if ($arg->{ReusePort}) {
- $sock->sockopt(SO_REUSEPORT,1) or
+ $sock->sockopt(0x0200,1) or
return _error($sock, $!, "$!");
}
|
