Perl Dprof and POE

Hey,
for all those who wants to use the Devel::DProf (the Perl code profiler,

perl -d:DProf

) together with POE (portable multitasking and networking framework for Perl) and are getting the error:

panic: Devel::DProf inconsistent subroutine return at /usr/lib/perl5/site_perl/5.10.0/POE/Kernel.pm line 822.

and also waiting on for the Bug fix (the label-goto-jump situation), may use the following workaround:

- change in the file /usr/lib/perl5/site_perl/5.10.0/POE/Kernel.pm the

 POE::Resources->load();

with

#    POE::Resources->load();
        eval "package POE::Kernel; use POE::Resource::Aliases";
        eval "package POE::Kernel; use POE::Resource::Events";
        eval "package POE::Kernel; use POE::Resource::Extrefs";
        eval "package POE::Kernel; use POE::Resource::FileHandles";
        eval "package POE::Kernel; use POE::Resource::SIDs";
        eval "package POE::Kernel; use POE::Resource::Sessions";
        eval "package POE::Kernel; use POE::Resource::Signals";
        eval "package POE::Kernel; use POE::Resource::Statistics";

Ok thats not the fine art, but it is working. Possibly the Statement:

sub load {
  my $package = (caller())[0];

in file /usr/lib/perl5/site_perl/5.10.0/POE/Resources.pm triggers the DProf Bug. But that does only the maintainer know ;-)