Revision: 1294
Author: [email protected]
Date: Thu Jun 10 01:47:15 2010
Log: Fix links from block and sub level reports to evals to only use line level.
RT#58284

http://code.google.com/p/perl-devel-nytprof/source/detail?r=1294

Modified:
 /trunk/lib/Devel/NYTProf/Reader.pm

=======================================
--- /trunk/lib/Devel/NYTProf/Reader.pm  Tue Jun  8 15:30:13 2010
+++ /trunk/lib/Devel/NYTProf/Reader.pm  Thu Jun 10 01:47:15 2010
@@ -495,6 +495,7 @@

     my $fi = $self->{profile}->fileinfo_of($file);
     #return "" if $fi->is_fake;
+    $level = 'line' if $fi->is_eval;

     my $url = $self->fname_for_fileinfo($fi, $level);
     $url .= '.html';

--
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]

Reply via email to