| 1 | #! perl |
1 | #! perl |
|
|
2 | |
|
|
3 | # this file is unfortunately only executed at Makefile.PL time |
| 2 | |
4 | |
| 3 | open my $fh, ">lib/AnyEvent/constants.pl" |
5 | open my $fh, ">lib/AnyEvent/constants.pl" |
| 4 | or die "lib/AnyEvent/constants.pl: $_[0]\n"; |
6 | or die "lib/AnyEvent/constants.pl: $_[0]\n"; |
| 5 | |
7 | |
| 6 | my $oldstdout = select $fh; |
8 | my $oldstdout = select $fh; |
| … | |
… | |
| 10 | } |
12 | } |
| 11 | |
13 | |
| 12 | print "package AnyEvent;\n"; |
14 | print "package AnyEvent;\n"; |
| 13 | |
15 | |
| 14 | our $WIN32 = $^O =~ /mswin32/i; |
16 | our $WIN32 = $^O =~ /mswin32/i; |
| 15 | |
|
|
| 16 | |
17 | |
| 17 | i CYGWIN => $^O =~ /cygwin/i; |
18 | i CYGWIN => $^O =~ /cygwin/i; |
| 18 | i WIN32 => $WIN32; |
19 | i WIN32 => $WIN32; |
| 19 | |
20 | |
| 20 | use Fcntl (); |
21 | use Fcntl (); |
| … | |
… | |
| 39 | } |
40 | } |
| 40 | |
41 | |
| 41 | my $af_inet6; |
42 | my $af_inet6; |
| 42 | |
43 | |
| 43 | $af_inet6 ||= eval { require Socket ; Socket::AF_INET6 () }; |
44 | $af_inet6 ||= eval { require Socket ; Socket::AF_INET6 () }; |
| 44 | $af_ine6t ||= eval { require Socket6; Socket6::AF_INET6() }; |
45 | $af_inet6 ||= eval { require Socket6; Socket6::AF_INET6() }; |
| 45 | |
46 | |
| 46 | # uhoh |
47 | # uhoh |
| 47 | $af_inet6 ||= 10 if $^O =~ /linux/; |
48 | $af_inet6 ||= 10 if $^O =~ /linux/; |
| 48 | $af_inet6 ||= 23 if $^O =~ /cygwin/i; |
49 | $af_inet6 ||= 23 if $^O =~ /cygwin/i; |
| 49 | $af_inet6 ||= 23 if AnyEvent::WIN32; |
50 | $af_inet6 ||= 23 if AnyEvent::WIN32; |
