Skip Menu |

This queue is for tickets about the AnyEvent CPAN distribution.

Report information
The Basics
Id: 61243
Status: rejected
Priority: 0/
Queue: AnyEvent

Owner: Nobody in particular
Requestors: bgp4 [...]

Bug Information
Severity: Normal
Broken in: (no value)
Fixed in: (no value)

Subject: AnyEvent DIEs if $SIG{__DIE__} is used
Download (untitled) / with headers
text/plain 664b
AnyEvent die if $SIG{__DIE__} defined. Attached dies with message: DIE: Can't locate Async/ in @INC (@INC contains: /usr/local/lib/perl5/5.10.1/BSDPAN /usr/local/lib/perl5/site_perl/5.10.1/mach /usr/local/lib/perl5/site_perl/5.10.1 /usr/local/lib/perl5/5.10.1/mach /usr/local/lib/perl5/5.10.1 /usr/local/vega/lib/perl5/5.10.1/mach /usr/local/vega/lib/perl5/5.10.1 /usr/local/vega/lib/perl5 .) at (eval 21) line 1. But it works as need if string local $SIG{__DIE__} = sub { warn 'DIE: '.$_[0]; exit }; commented out. Path to fix this bug attached. ---- version info: This is perl, v5.10.1 (*) built for amd64-freebsd AnyEvent 5.271
text/x-perl 386b
#!/usr/bin/perl use warnings; use strict; use AnyEvent; local $SIG{__DIE__} = sub { warn 'DIE: '.$_[0]; exit }; my $done = AnyEvent->condvar; my $pid = fork or exit 5; my $w = AnyEvent->child ( pid => $pid, cb => sub { my ($pid, $status) = @_; warn "pid $pid exited with status $status"; $done->send; }, ); # do something else, then wait for process exit $done->recv;
Subject: eval.patch
Download eval.patch
text/x-diff 576b
--- /usr/local/lib/perl5/site_perl/5.10.1/ 2010-09-10 15:30:09.000000000 +0000 +++ /usr/local/lib/perl5/site_perl/5.10.1/ 2010-09-10 15:31:53.000000000 +0000 @@ -1513,7 +1513,8 @@ sub sig2name($) { &$_sig_name_init; &sig sub signal { eval q{ # poor man's autoloading {} - # probe for availability of Async::Interrupt + local $SIG{__DIE__}; + # probe for availability of Async::Interrupt if (_have_async_interrupt) { warn "AnyEvent: using Async::Interrupt for race-free signal handling.\n" if $VERBOSE >= 8;
Subject: Re: [ #61243] AnyEvent DIEs if $SIG{__DIE__} is used
Date: Sat, 11 Sep 2010 00:28:24 +0200
To: " via RT" <bug-AnyEvent [...]>
From: Marc Lehmann <schmorp [...]>
Download (untitled) / with headers
text/plain 2.1k
Hi! You sent a possible bug report on or via Please read this mail carefully if you want to be heard. Most likely, your report will be ignored. Please close the ticket again and sent it to the official contact address for the module in question (or send it to Why is this necessary? has many deficiencies which makes it tedious and hard to use, increasing the workload on the people who provide all the perl modules you probably appreciate (and that is really to be avoided - module authors should be able to invest all their time into improving their modules and not fighting with's bugs). Still, for some people, is useful to have, and some people even like it and really want to use it. That is fine, too. Unfortunately, the designers of didn't make their "service" optional - you can neither opt-in nor opt-out of as a module author. Just like a spammer, forces its "service" (whether wanted or unwanted) on everybody. Just like a spammer, they don't care for the people they actively hurt. Just like a spammer, they don't don't care to fix these issues and make their "service" ethically acceptable. You cannot even configure it to redirect tickets to somewhere else. Unfortunately, ignoring is not an option either: for people reporting possible bugs there is no indication that their report will be ignored, and for module authors it means they miss possibly vital bug reports (and of course it's a great impression if has lots of bug reports that are unanswered, making a module unmaintained when in fact the opposite might be true). This is why it is important that you delete/resolve your ticket. I am sorry that this wasted a bit of your time, but please understand that I am just as much a victim as you are - the problem is the unethical stance of the providers who force their "service" on everybody. Please redirect your bug report as stated in the beginning of this mail, and please consider petitioning the providers to stop their unethical behaviour and allow opt-in, opt-out, or some redirect option. Thanks a lot, Marc Lehmann <>

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to