Comparing cvsroot/AnyEvent-Porttracker/Porttracker.pm (file contents):
Revision 1.6 by root, Tue Nov 16 01:10:50 2010 UTC vs.
Revision 1.7 by root, Tue Nov 16 01:16:58 2010 UTC
… | |
… | |
249 | =cut |
249 | =cut |
250 | |
250 | |
251 | sub req { |
251 | sub req { |
252 | my $cb = pop; |
252 | my $cb = pop; |
253 | push @_, sub { |
253 | push @_, sub { |
254 | shift |
254 | splice @_, 1, 1 |
255 | or $_[0]->error ($_[1]); |
255 | or $_[0]->error ($_[1]); |
256 | |
256 | |
257 | &$cb |
257 | &$cb |
258 | }; |
258 | }; |
259 | |
259 | |
Diff Legend
– |
Removed lines |
+ |
Added lines |
< |
Changed lines |
> |
Changed lines |