[ViewVC] Diff of: cvs/AnyEvent/lib/AnyEvent/Strict.pm

Comparing AnyEvent/lib/AnyEvent/Strict.pm (file contents):
Revision 1.12 by root, Thu Apr 23 22:44:30 2009 UTC vs.
Revision 1.13 by root, Wed Jul 8 02:01:12 2009 UTC

 =cut
 package AnyEvent::Strict;
 no warnings; # *sigh*
+use strict qw(vars subs);
 use Carp qw(croak);
+use Fcntl ();
 use AnyEvent ();
+our @ISA;
 AnyEvent::post_detect {
    # assume the first ISA member is the implementation
    # # and link us in before it in the chain.
    my $MODEL = shift @AnyEvent::ISA;
    ref $arg{cb}
       or croak "AnyEvent->io called with illegal cb argument '$arg{cb}'";
    delete $arg{cb};
+   $arg{poll} =~ /^[rw]$/
+      or croak "AnyEvent->io called with illegal poll argument '$arg{poll}'";
+   if (defined fileno $arg{fh} or ref $arg{fh} or $arg{fh} !~ /^\s*\d+\s*$/) {
-   defined fileno $arg{fh}
+      defined fileno $arg{fh}
-      or croak "AnyEvent->io called with illegal fh argument '$arg{fh}'";
+         or croak "AnyEvent->io called with illegal fh argument '$arg{fh}'";
+   } else {
+      $arg{fh} = AnyEvent::_dupfh $arg{poll}, $arg{fh};
+   }
    -f $arg{fh}
       and croak "AnyEvent->io called with fh argument pointing to a file";
+   delete $arg{poll};
    delete $arg{fh};
-   $arg{poll} =~ /^[rw]$/
-      or croak "AnyEvent->io called with illegal poll argument '$arg{poll}'";
-   delete $arg{poll};
    croak "AnyEvent->io called with unsupported parameter(s) " . join ", ", keys %arg
       if keys %arg;
    $class->SUPER::io (@_)

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