[ViewVC] Diff of: cvs/AnyEvent/constants.pl.PL

Comparing AnyEvent/constants.pl.PL (file contents):
Revision 1.10 by root, Sun Dec 5 11:41:45 2010 UTC vs.
Revision 1.12 by root, Sat Sep 22 00:22:59 2012 UTC

 BEGIN { eval "use Socket ()" }
 BEGIN { eval "use Fcntl  ()" }
 BEGIN { eval "use POSIX  ()" }
 open my $fh, ">lib/AnyEvent/constants.pl"
-   or die "lib/AnyEvent/constants.pl: $_[0]\n";
+   or die "lib/AnyEvent/constants.pl: $!\n";
 my $oldstdout = select $fh;
 print "# automatically generated from constants.pl.PL for perl $] built for $Config{archname}\n";
 print "package AnyEvent::Base;\n";
 # add these purely to avoid loading POSIX, which is slow and bloated.
 i WNOHANG    => eval { POSIX::WNOHANG() } || 1;
+print "package AnyEvent::IO;\n";
+i O_RDONLY   => eval { Fcntl::O_RDONLY() } || 0;
+i O_WRONLY   => eval { Fcntl::O_WRONLY() } || 1;
+i O_RDWR     => eval { Fcntl::O_RDWR  () } || 2;
+i O_CREAT    => eval { Fcntl::O_CREAT () } || 64;
+i O_EXCL     => eval { Fcntl::O_EXCL  () } || 128;
+i O_TRUNC    => eval { Fcntl::O_TRUNC () } || 512;
+i O_APPEND   => eval { Fcntl::O_APPEND() } || 1024;
 print "package AnyEvent::Util;\n";
 # broken windows perls use undocumented error codes...
 if ($WIN32) {

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