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 |
