On Jun 22, 3:34 pm, Joshua ben Jore <[email protected]> wrote: > On Tue, Jun 22, 2010 at 4:54 AM, Martin <[email protected]> wrote: > > Just for your reference, I originally thought Devel::NYTProf was > > reporting a long time spent on the wrong line. I know this is not a > > Devel::NYTProf issue and it is simply that I used Devel::NYTProf to > > highlight the troublesome line. Here is a smaller, self contained > > example which proves the line originally highlighted by Devel::NYTProf > > is the problem: > > > use strict; > > use warnings; > > use Scalar::Util qw(tainted); > > > my $fd; > > open($fd, ">", "file.dat"); > > print $fd 'x' x 4096; > > close $fd; > > > my $data; > > { > > local $/; > > open ($fd, "<", "file.dat"); > > $data = <$fd>; > > close $fd; > > } > > print "data is tainted: ", tainted($data) ? 'yes' : 'no', "\n"; > > > my %hash; > > $hash{content} = ''; > > > foreach (1..10000) { > > # comment following line out to make this fly > > my $ref = ref($hash{content}); > > #if (!$ref) { > > $hash{content} .= $data; > > #} > > } > > > print length($hash{content}), "\n"; > > > Problem exists at least until up to 5.12.1. > > > I will pursue this elsewhere now (although I'm not sure where right > > now) and thanks for your help. > > If you run `perlbug` then you can file this is as a bug against core > perl and all the core perl 5 developers will hear about it in an > email. Most of what you've already posted would be great to copy/paste > into the bug report. It'll generate a formatted email to an address > something like [email protected]. You can then let it either send the > message directly if your system routes for external email or do what I > do which is then save the bug report as a text file and use my gmail > to send the exact "same" message. Please use the text formatting as > generated by perlbug. > > Josh
http://rt.perl.org/rt3//Public/Bug/Display.html?id=75954 Martin -- 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]
