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 (); |