On Sat, Dec 31, 2011 at 11:53:33PM +0100, Nicolas GEORGES (CPAN) wrote:
> Hi,
> First, I have just discovered your very nice module! (while going
> to Devel::DProf ...), it generate very nice reporting, really awesome!
Thanks. And I'm sorry for the long delay before replying to you.
> The bug I found is not trivial to reproduce, but I will try to explain
> context.
> Working with perl 5.10.1 on windows xp.
> I am writing a perl interpreter which make connection with another virtual
> machine (Powerbuilder).
> For some internals reasons, I inject an CV ref into @INC (as you can see
> in PAR).
> This CV ref is generated with XS macro : newXS. I have compiled
> perl510.dll with CFG=Debug, then I
> rebuild NYTProf.dll.
> And I found that subr_entry->called_subpkg_pv was set to NULL.
> At this point I have just hacked to make it point to "undef",
> because I don't know if there is another way to retrieve something
> about the stash of that called CV.
Okay. Thanks for the patch. I could take the patch at face value or, if
you could find some way for me to reproduce it then I could work on
improving the behavior.
Tim.
--- C:/perl510/geni/Devel-NYTProf-4.06/ORI_NYTProf.xs mar. nov. 30 23:15:41
2010
+++ C:/perl510/geni/Devel-NYTProf-4.06/NYTProf.xs sam. d<E9>c. 31
23:22:37 2011
@@ -2675,6 +2675,10 @@
}
/* ignore our own DB::_INIT sub - only shows up with 5.8.9+ & 5.10.1+ */
+ if( !subr_entry->called_subpkg_pv){ /*[email protected] : hack (found
in (?:my|a) special situation)*/
+ subr_entry->called_subpkg_pv = "undef";
+ }
+
if (subr_entry->called_is_xs
&& subr_entry->called_subpkg_pv[0] == 'D'
&& subr_entry->called_subpkg_pv[1] == 'B'
--
You've received this message because you are subscribed to
the Devel::NYTProf Development User group.
Group hosted at: http://groups.google.com/group/develnytprof-dev
Project hosted at: http://perl-devel-nytprof.googlecode.com
CPAN distribution: http://search.cpan.org/dist/Devel-NYTProf
To post, email: [email protected]
To unsubscribe, email: [email protected]
