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.13 by root, Wed Jul 8 02:01:12 2009 UTC vs.
Revision 1.16 by root, Thu Jul 9 22:37:53 2009 UTC

… …
28 28
29use Carp qw(croak); 29use Carp qw(croak);
30use Fcntl (); 30use Fcntl ();
31 31
32use AnyEvent (); 32use AnyEvent ();
33use AnyEvent::Util ();
33 34
34our @ISA; 35our @ISA;
35 36
36AnyEvent::post_detect { 37AnyEvent::post_detect {
37 # assume the first ISA member is the implementation 38 # assume the first ISA member is the implementation
… …
99 100
100 ref $arg{cb} 101 ref $arg{cb}
101 or croak "AnyEvent->signal called with illegal cb argument '$arg{cb}'"; 102 or croak "AnyEvent->signal called with illegal cb argument '$arg{cb}'";
102 delete $arg{cb}; 103 delete $arg{cb};
103 104
104 eval "require POSIX; 0 < &POSIX::SIG$arg{signal}" 105 defined AnyEvent::Util::sig2num $arg{signal}
105 or croak "AnyEvent->signal called with illegal signal name '$arg{signal}'"; 106 or croak "AnyEvent->signal called with illegal signal name '$arg{signal}'";
106 delete $arg{signal}; 107 delete $arg{signal};
107 108
108 croak "AnyEvent->signal called with unsupported parameter(s) " . join ", ", keys %arg 109 croak "AnyEvent->signal called with unsupported parameter(s) " . join ", ", keys %arg
109 if keys %arg; 110 if keys %arg;

Diff Legend

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