1 | #! perl |
1 | #! perl |
2 | |
2 | |
3 | open STDOUT, ">$ARGV[0]~" |
3 | # this file is unfortunately only executed at Makefile.PL time |
4 | or die "$ARGV[0]~: $!"; |
4 | |
|
|
5 | open my $fh, ">lib/AnyEvent/constants.pl" |
|
|
6 | or die "lib/AnyEvent/constants.pl: $_[0]\n"; |
|
|
7 | |
|
|
8 | my $oldstdout = select $fh; |
5 | |
9 | |
6 | sub i($$) { |
10 | sub i($$) { |
7 | print "sub $_[0] () { ", $_[1]*1, " }\n"; |
11 | print "sub $_[0] () { ", $_[1]*1, " }\n"; |
8 | } |
12 | } |
9 | |
13 | |
10 | print "package AnyEvent;\n"; |
14 | print "package AnyEvent;\n"; |
11 | |
15 | |
12 | our $WIN32 = $^O =~ /mswin32/i; |
16 | our $WIN32 = $^O =~ /mswin32/i; |
13 | |
|
|
14 | |
17 | |
15 | i CYGWIN => $^O =~ /cygwin/i; |
18 | i CYGWIN => $^O =~ /cygwin/i; |
16 | i WIN32 => $WIN32; |
19 | i WIN32 => $WIN32; |
17 | |
20 | |
18 | use Fcntl (); |
21 | use Fcntl (); |
… | |
… | |
60 | #i SO_OOBINLINE => Socket::SO_OOBINLINE (); |
63 | #i SO_OOBINLINE => Socket::SO_OOBINLINE (); |
61 | #i IPPROTO_TCP => Socket::IPPROTO_TCP (); |
64 | #i IPPROTO_TCP => Socket::IPPROTO_TCP (); |
62 | |
65 | |
63 | print "1;\n"; |
66 | print "1;\n"; |
64 | |
67 | |
65 | close STDOUT; |
68 | close $fh; |
|
|
69 | select $oldstdout; |
|
|
70 | |
66 | rename "$ARGV[0]~", $ARGV[0]; |
71 | rename "$ARGV[0]~", $ARGV[0]; |
|
|
72 | |
|
|
73 | 1 |