Skip Menu |

This queue is for tickets about the AnyEvent CPAN distribution.

Report information
The Basics
Id: 101106
Status: resolved
Priority: 0/
Queue: AnyEvent

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

Bug Information
Severity: Important
Broken in:
  • 7.05
  • 7.07
  • 7.08
Fixed in: (no value)

Subject: AnyEvent::Debug calling AnyEvent::Log::ft()
Download (untitled) / with headers
text/plain 2.6k
It looks like AnyEvent::Log::ft was renamed AnyEvent::Log:format_time. AnyEvent::Debug::verbose() still uses the old call. The run time result is: Show quoted text
85152900 AnyEvent::HTTPD::HTTPServer:61(new)>io>AnyEvent::Socket:489 Show quoted text
> i 85152900
main::__ANON__('Can\'t locate object method "ft" via package "AnyEvent::Log" ...') called at C:\Users\MSTOVE~1\perl5\lib\perl5\MSWin32-x86-multi-thread/AnyEvent/ line 654 AnyEvent::Debug::Wrapped::verbose('AnyEvent::Debug::Wrapped=HASH(0x5135484)') called at C:\Users\MSTOVE~1\perl5\lib\perl5\MSWin32-x86-multi-thread/AnyEvent/ line 231 AnyEvent::Debug::shell::i(85152900) called at (eval 532) line 1 eval 'i 85152900 ;' called at C:\Users\MSTOVE~1\perl5\lib\perl5\MSWin32-x86-multi-thread/AnyEvent/ line 164 AnyEvent::Debug::__ANON__() called at C:\Users\MSTOVE~1\perl5\lib\perl5\MSWin32-x86-multi-thread/AnyEvent/ line 248 AnyEvent::Loop::one_event() called at C:\Users\MSTOVE~1\perl5\lib\perl5\MSWin32-x86-multi-thread/AnyEvent/Impl/ line 46 AnyEvent::CondVar::Base::_wait('AnyEvent::CondVar=HASH(0x46fff94)') called at C:\Users\MSTOVE~1\perl5\lib\perl5\MSWin32-x86-multi-thread/ line 1994 The following patch corrects the issue: $ diff -u AnyEvent/Debug.orig AnyEvent/ --- AnyEvent/Debug.orig 2014-12-23 15:22:10.656435400 -0600 +++ AnyEvent/ 2014-12-23 15:30:47.756011800 -0600 @@ -646,7 +646,7 @@ my $res = "type: $self->{type} watcher\n" . "args: " . (join " ", %{ $self->{arg} }) . "\n" # TODO: decode fh? - . "created: " . (AnyEvent::Log::ft $self->{now}) . " ($self->{now})\n" + . "created: " . (AnyEvent::Log::format_time $self->{now}) . " ($self->{now})\n" . "file: ${ $self->{rfile} }\n" . "line: $self->{line}\n" . "subname: $self->{sub}\n" @@ -662,7 +662,7 @@ if (exists $self->{error}) { $res .= "errors: " . @{$self->{error}} . "\n"; - $res .= "error: " . (AnyEvent::Log::ft $_->[0]) . " ($_->[0]) $_->[1]\n" + $res .= "error: " . (AnyEvent::Log::format_time $_->[0]) . " ($_->[0]) $_->[1]\n" for @{$self->{error}}; } New run time result: Show quoted text
81876044 AnyEvent::HTTPD::HTTPServer:61(new)>io>AnyEvent::Socket:489 Show quoted text
> i 81876044
81876044 AnyEvent::HTTPD::HTTPServer:61(new)>io>AnyEvent::Socket:489 type: io watcher args: poll r fh GLOB(0x4e150cc) created: 2014-12-23 15:18:02.021254 Central Standard Time (1419369482.02125) file: C:\Users\MSTOVE~1\perl5\lib\perl5/AnyEvent/HTTPD/ line: 61 subname: AnyEvent::HTTPD::HTTPServer::new context: tracing: enabled cb: CODE(0x4c6313c) (AnyEvent::Socket:489) invoked: 0 times
Subject: Re: [ #101106] AnyEvent::Debug calling AnyEvent::Log::ft()
Date: Wed, 24 Dec 2014 22:20:45 +0100
To: Michael Stovenour via RT <bug-AnyEvent [...]>
From: Marc Lehmann <schmorp [...]>
Hi! Please send your bug report to the official contact/author address for the module in question (or send it to, that's fine as well). What follows is the rationale for this request, you don't have to read it if you don't care. 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 potentially vital bug reports such as yours (and of course it's a great impression if has lots of bug reports that are unanswered, making a module look unmaintained when in fact the opposite might be true). 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. One last issue: many people mail me that this can be "fixed" by including the bugtracker element in my module meta file. This is not true: 1. This field only affects and maybe similar services. (Many people confuse with for some reason). 2. It doesn't even work (there are still links to displayed). 3. Even if does no longer display the link, it doesn't actually affect (and tests have shown that people go to regardless) Even *iff* would start listening on the bugtracker field, however, it's still wrong. I have a lot of modules, and each time a service like comes out, I would have to make dummy releases for all my modules. This not only creates a lot of extra work for me (I take releases very seriously) but also users, who would wonder why there is a new release. Thanks a lot, Marc Lehmann <> Last updated: 2012-04-22

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

Please report any issues with to