ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent/constants.pl.PL
(Generate patch)

Comparing AnyEvent/constants.pl.PL (file contents):
Revision 1.1 by root, Sun Feb 21 09:28:18 2010 UTC vs.
Revision 1.3 by root, Sat Mar 13 00:08:08 2010 UTC

1#! perl 1#! perl
2 2
3open STDOUT, ">$ARGV[0]~" 3open my $fh, ">lib/AnyEvent/constants.pl"
4 or die "$ARGV[0]~: $!"; 4 or die "lib/AnyEvent/constants.pl: $_[0]\n";
5
6my $oldstdout = select $fh;
5 7
6sub i($$) { 8sub i($$) {
7 print "sub $_[0] () { ", $_[1]*1, " }\n"; 9 print "sub $_[0] () { ", $_[1]*1, " }\n";
8} 10}
9 11
… …
15i CYGWIN => $^O =~ /cygwin/i; 17i CYGWIN => $^O =~ /cygwin/i;
16i WIN32 => $WIN32; 18i WIN32 => $WIN32;
17 19
18use Fcntl (); 20use Fcntl ();
19 21
20i F_SETFL => Fcntl::F_SETFL(); 22i F_SETFL => eval { Fcntl::F_SETFL() };
21i F_SETFD => Fcntl::F_SETFD(); 23i F_SETFD => eval { Fcntl::F_SETFD() };
22i O_NONBLOCK => Fcntl::O_NONBLOCK(); 24i O_NONBLOCK => eval { Fcntl::O_NONBLOCK() };
23i FD_CLOEXEC => Fcntl::FD_CLOEXEC(); 25i FD_CLOEXEC => eval { Fcntl::FD_CLOEXEC() };
24 26
25print "package AnyEvent::Util;\n"; 27print "package AnyEvent::Util;\n";
26 28
27# broken windows perls use undocumented error codes... 29# broken windows perls use undocumented error codes...
28if ($WIN32) { 30if ($WIN32) {
… …
36 i WSAEINPROGRESS => -1e99; 38 i WSAEINPROGRESS => -1e99;
37} 39}
38 40
39my $af_inet6; 41my $af_inet6;
40 42
41$af_inet6 ||= eval { use Socket ; Socket::AF_INET6 () }; 43$af_inet6 ||= eval { require Socket ; Socket::AF_INET6 () };
42$af_ine6t ||= eval { use Socket6; Socket6::AF_INET6() }; 44$af_ine6t ||= eval { require Socket6; Socket6::AF_INET6() };
43 45
44# uhoh 46# uhoh
45$af_inet6 ||= 10 if $^O =~ /linux/; 47$af_inet6 ||= 10 if $^O =~ /linux/;
46$af_inet6 ||= 23 if $^O =~ /cygwin/i; 48$af_inet6 ||= 23 if $^O =~ /cygwin/i;
47$af_inet6 ||= 23 if AnyEvent::WIN32; 49$af_inet6 ||= 23 if AnyEvent::WIN32;
… …
60#i SO_OOBINLINE => Socket::SO_OOBINLINE (); 62#i SO_OOBINLINE => Socket::SO_OOBINLINE ();
61#i IPPROTO_TCP => Socket::IPPROTO_TCP (); 63#i IPPROTO_TCP => Socket::IPPROTO_TCP ();
62 64
63print "1;\n"; 65print "1;\n";
64 66
65close STDOUT; 67close $fh;
68select $oldstdout;
69
66rename "$ARGV[0]~", $ARGV[0]; 70rename "$ARGV[0]~", $ARGV[0];
71
721

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines