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.14 by root, Thu Jul 9 18:58:19 2009 UTC vs.
Revision 1.20 by root, Sun Feb 21 09:28:19 2010 UTC

… …
21 21
22=cut 22=cut
23 23
24package AnyEvent::Strict; 24package AnyEvent::Strict;
25 25
26use common::sense; 26use Carp qw(croak);
27 27
28use Carp qw(croak); 28use AnyEvent (); BEGIN { AnyEvent::common_sense }
29use Fcntl ();
30
31use AnyEvent ();
32 29
33our @ISA; 30our @ISA;
34 31
35AnyEvent::post_detect { 32AnyEvent::post_detect {
36 # assume the first ISA member is the implementation 33 # assume the first ISA member is the implementation
… …
98 95
99 ref $arg{cb} 96 ref $arg{cb}
100 or croak "AnyEvent->signal called with illegal cb argument '$arg{cb}'"; 97 or croak "AnyEvent->signal called with illegal cb argument '$arg{cb}'";
101 delete $arg{cb}; 98 delete $arg{cb};
102 99
103 eval "require POSIX; 0 < &POSIX::SIG$arg{signal}" 100 defined AnyEvent::Base::sig2num $arg{signal} and $arg{signal} == 0
104 or croak "AnyEvent->signal called with illegal signal name '$arg{signal}'"; 101 or croak "AnyEvent->signal called with illegal signal name '$arg{signal}'";
105 delete $arg{signal}; 102 delete $arg{signal};
106 103
107 croak "AnyEvent->signal called with unsupported parameter(s) " . join ", ", keys %arg 104 croak "AnyEvent->signal called with unsupported parameter(s) " . join ", ", keys %arg
108 if keys %arg; 105 if keys %arg;

Diff Legend

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