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.17 by root, Fri Jul 17 23:12:20 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 }
30use AnyEvent::Util ();
31 29
32our @ISA; 30our @ISA;
33 31
34AnyEvent::post_detect { 32AnyEvent::post_detect {
35 # assume the first ISA member is the implementation 33 # assume the first ISA member is the implementation
… …
48 delete $arg{cb}; 46 delete $arg{cb};
49 47
50 $arg{poll} =~ /^[rw]$/ 48 $arg{poll} =~ /^[rw]$/
51 or croak "AnyEvent->io called with illegal poll argument '$arg{poll}'"; 49 or croak "AnyEvent->io called with illegal poll argument '$arg{poll}'";
52 50
53 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 {
54 defined fileno $arg{fh} 54 defined eval { fileno $arg{fh} }
55 or croak "AnyEvent->io called with illegal fh argument '$arg{fh}'"; 55 or croak "AnyEvent->io called with illegal fh argument '$arg{fh}'";
56 } else {
57 $arg{fh} = AnyEvent::_dupfh $arg{poll}, $arg{fh};
58 } 56 }
59 57
60 -f $arg{fh} 58 -f $arg{fh}
61 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";
62 60
… …
97 95
98 ref $arg{cb} 96 ref $arg{cb}
99 or croak "AnyEvent->signal called with illegal cb argument '$arg{cb}'"; 97 or croak "AnyEvent->signal called with illegal cb argument '$arg{cb}'";
100 delete $arg{cb}; 98 delete $arg{cb};
101 99
102 defined AnyEvent::Util::sig2num $arg{signal} 100 defined AnyEvent::Base::sig2num $arg{signal} and $arg{signal} == 0
103 or croak "AnyEvent->signal called with illegal signal name '$arg{signal}'"; 101 or croak "AnyEvent->signal called with illegal signal name '$arg{signal}'";
104 delete $arg{signal}; 102 delete $arg{signal};
105 103
106 croak "AnyEvent->signal called with unsupported parameter(s) " . join ", ", keys %arg 104 croak "AnyEvent->signal called with unsupported parameter(s) " . join ", ", keys %arg
107 if keys %arg; 105 if keys %arg;

Diff Legend

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