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.2 by root, Fri Mar 12 23:30:06 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
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