ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent/lib/AnyEvent/Strict.pm
(Generate patch)

Comparing AnyEvent/lib/AnyEvent/Strict.pm (file contents):
Revision 1.18 by root, Wed Jul 29 12:39:21 2009 UTC vs.
Revision 1.21 by root, Tue Aug 31 23:32:40 2010 UTC

… …
22=cut 22=cut
23 23
24package AnyEvent::Strict; 24package AnyEvent::Strict;
25 25
26use Carp qw(croak); 26use Carp qw(croak);
27use Fcntl ();
28 27
29use AnyEvent (); BEGIN { AnyEvent::common_sense } 28use AnyEvent (); BEGIN { AnyEvent::common_sense }
30 29
31our @ISA; 30our @ISA;
32 31
… …
47 delete $arg{cb}; 46 delete $arg{cb};
48 47
49 $arg{poll} =~ /^[rw]$/ 48 $arg{poll} =~ /^[rw]$/
50 or croak "AnyEvent->io called with illegal poll argument '$arg{poll}'"; 49 or croak "AnyEvent->io called with illegal poll argument '$arg{poll}'";
51 50
52 if (defined fileno $arg{fh} or ref $arg{fh} or $arg{fh} !~ /^\s*\d+\s*$/) { 51 if ($arg{fh} =~ /^\s*\d+\s*$/) {
52 $arg{fh} = AnyEvent::_dupfh $arg{poll}, $arg{fh};
53 } else {
53 defined fileno $arg{fh} 54 defined eval { fileno $arg{fh} }
54 or croak "AnyEvent->io called with illegal fh argument '$arg{fh}'"; 55 or croak "AnyEvent->io called with illegal fh argument '$arg{fh}'";
55 } else {
56 $arg{fh} = AnyEvent::_dupfh $arg{poll}, $arg{fh};
57 } 56 }
58 57
59 -f $arg{fh} 58 -f $arg{fh}
60 and croak "AnyEvent->io called with fh argument pointing to a file"; 59 and croak "AnyEvent->io called with fh argument pointing to a file";
61 60
… …
96 95
97 ref $arg{cb} 96 ref $arg{cb}
98 or croak "AnyEvent->signal called with illegal cb argument '$arg{cb}'"; 97 or croak "AnyEvent->signal called with illegal cb argument '$arg{cb}'";
99 delete $arg{cb}; 98 delete $arg{cb};
100 99
101 defined AnyEvent::Base::sig2num $arg{signal} 100 defined AnyEvent::Base::sig2num $arg{signal} and $arg{signal} == 0
102 or croak "AnyEvent->signal called with illegal signal name '$arg{signal}'"; 101 or croak "AnyEvent->signal called with illegal signal name '$arg{signal}'";
103 delete $arg{signal}; 102 delete $arg{signal};
104 103
105 croak "AnyEvent->signal called with unsupported parameter(s) " . join ", ", keys %arg 104 croak "AnyEvent->signal called with unsupported parameter(s) " . join ", ", keys %arg
106 if keys %arg; 105 if keys %arg;

Diff Legend

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