| … | |
… | |
| 381 | called => 0, |
381 | called => 0, |
| 382 | }, "AnyEvent::Debug::Wrapped"; |
382 | }, "AnyEvent::Debug::Wrapped"; |
| 383 | |
383 | |
| 384 | delete $arg{cb}; |
384 | delete $arg{cb}; |
| 385 | |
385 | |
|
|
386 | # backtraces leak like hell |
| 386 | $self->{bt} = Carp::longmess "" |
387 | $self->{bt} = Carp::longmess "" |
| 387 | if $WRAP_LEVEL >= 2; |
388 | if $WRAP_LEVEL >= 2; |
| 388 | |
389 | |
| 389 | Scalar::Util::weaken ($w = $self); |
390 | Scalar::Util::weaken ($w = $self); |
| 390 | Scalar::Util::weaken ($AnyEvent::Debug::Wrapped{Scalar::Util::refaddr $self} = $self); |
391 | Scalar::Util::weaken ($AnyEvent::Debug::Wrapped{Scalar::Util::refaddr $self} = $self); |
