| 1 | #! perl |
1 | #! perl |
| 2 | |
2 | |
| 3 | open STDOUT, ">$ARGV[0]~" |
3 | open my $fh, ">lib/AnyEvent/constants.pl" |
| 4 | or die "$ARGV[0]~: $!"; |
4 | or die "lib/AnyEvent/constants.pl: $_[0]\n"; |
|
|
5 | |
|
|
6 | my $oldstdout = select $fh; |
| 5 | |
7 | |
| 6 | sub i($$) { |
8 | sub i($$) { |
| 7 | print "sub $_[0] () { ", $_[1]*1, " }\n"; |
9 | print "sub $_[0] () { ", $_[1]*1, " }\n"; |
| 8 | } |
10 | } |
| 9 | |
11 | |
| … | |
… | |
| 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 | |
| 63 | print "1;\n"; |
65 | print "1;\n"; |
| 64 | |
66 | |
| 65 | close STDOUT; |
67 | close $fh; |
|
|
68 | select $oldstdout; |
|
|
69 | |
| 66 | rename "$ARGV[0]~", $ARGV[0]; |
70 | rename "$ARGV[0]~", $ARGV[0]; |
|
|
71 | |
|
|
72 | 1 |
