Author: tim.bunce
Date: Wed Nov 19 11:03:04 2008
New Revision: 615

Modified:
    trunk/HACKING
    trunk/lib/Devel/NYTProf/FileInfo.pm

Log:
For $fi->abs_filename returning the still-relative filename is better than  
returning an undef.


Modified: trunk/HACKING
==============================================================================
--- trunk/HACKING       (original)
+++ trunk/HACKING       Wed Nov 19 11:03:04 2008
@@ -289,6 +289,8 @@
  memory, plus getrusage()). Abstract those into a structure with functions  
to
  subtract the difference. Then use the same logic to get inclusive and  
exclusive
  values as we use for inclusive and exclusive subroutine times.
+Also possibly track the memory allocated to lexical pad SVs
+(for given sub at given depth).

  Report max recursion depth and reci_time per sub in per-file reports.


Modified: trunk/lib/Devel/NYTProf/FileInfo.pm
==============================================================================
--- trunk/lib/Devel/NYTProf/FileInfo.pm (original)
+++ trunk/lib/Devel/NYTProf/FileInfo.pm Wed Nov 19 11:03:04 2008
@@ -152,7 +152,9 @@
      for my $file (@files) {
          return $file if -f $file;
      }
-    return undef;
+
+    # returning the still-relative filename is better than returning an  
undef
+    return $filename;
  }

  sub srclines_array {

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