Revision: 1245
Author: [email protected]
Date: Thu May 27 02:43:13 2010
Log: Dodge option sensitivity in t/test51-enable by avoiding string evals.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1245
Modified:
/trunk/t/test51-enable.p
/trunk/t/test51-enable.rdt
/trunk/t/test51-enable.x
=======================================
--- /trunk/t/test51-enable.p Thu May 20 15:40:57 2010
+++ /trunk/t/test51-enable.p Thu May 27 02:43:13 2010
@@ -4,7 +4,14 @@
my $file_c = "nytprof-test51-c.out";
unlink $file_b, $file_c;
-eval "sub sub$_ { 1 }; 1;1;" for (1..10);
+sub sub1 { 1 }
+sub sub2 { 1 }
+sub sub3 { 1 }
+sub sub4 { 1 }
+sub sub5 { 1 }
+sub sub6 { 1 }
+sub sub7 { 1 }
+sub sub8 { 1 }
sub1(); # profiled
=======================================
--- /trunk/t/test51-enable.rdt Thu May 20 15:40:57 2010
+++ /trunk/t/test51-enable.rdt Thu May 27 02:43:13 2010
@@ -16,93 +16,48 @@
fid_block_time 1 3 [ 0 1 ]
fid_block_time 1 4 [ 0 1 ]
fid_block_time 1 5 [ 0 1 ]
-fid_block_time 1 7 [ 0 2 ]
-fid_block_time 1 9 [ 0 1 ]
-fid_block_time 2 1 [ 0 3 ]
-fid_block_time 3 1 [ 0 2 ]
-fid_block_time 4 1 [ 0 2 ]
-fid_block_time 5 1 [ 0 2 ]
-fid_block_time 6 1 [ 0 2 ]
-fid_block_time 7 1 [ 0 2 ]
-fid_block_time 8 1 [ 0 2 ]
-fid_block_time 9 1 [ 0 2 ]
-fid_block_time 10 1 [ 0 2 ]
-fid_block_time 11 1 [ 0 2 ]
+fid_block_time 1 7 [ 0 1 ]
+fid_block_time 1 16 [ 0 1 ]
fid_fileinfo 1 [ test51-enable.p 1 2 0 0 ]
fid_fileinfo 1 sub main::BEGIN 0-0
fid_fileinfo 1 sub main::CORE:unlink 0-0
fid_fileinfo 1 sub main::RUNTIME 1-1
+fid_fileinfo 1 sub main::sub1 7-7
+fid_fileinfo 1 sub main::sub2 8-8
+fid_fileinfo 1 sub main::sub3 9-9
+fid_fileinfo 1 sub main::sub4 10-10
+fid_fileinfo 1 sub main::sub5 11-11
+fid_fileinfo 1 sub main::sub6 12-12
+fid_fileinfo 1 sub main::sub7 13-13
+fid_fileinfo 1 sub main::sub8 14-14
fid_fileinfo 1 call 5 main::CORE:unlink [ 1 0 0 0 0 0 0
main::RUNTIME ]
-fid_fileinfo 1 call 9 main::sub1 [ 1 0 0 0 0 0 0
main::RUNTIME ]
-fid_fileinfo 1 call 11 DB::disable_profile [ 1 0 0 0 0 0 0
main::RUNTIME ]
-fid_fileinfo 1 eval 7 [ count 10 nested 0 merged 0 ]
-fid_fileinfo 2 [ (eval 0)[test51-enable.p:7] 1 7 2 2 0 0 ]
-fid_fileinfo 2 sub main::sub1 1-1
-fid_fileinfo 3 [ (eval 0)[test51-enable.p:7] 1 7 3 2 0 0 ]
-fid_fileinfo 3 sub main::sub2 1-1
-fid_fileinfo 4 [ (eval 0)[test51-enable.p:7] 1 7 4 2 0 0 ]
-fid_fileinfo 4 sub main::sub3 1-1
-fid_fileinfo 5 [ (eval 0)[test51-enable.p:7] 1 7 5 2 0 0 ]
-fid_fileinfo 5 sub main::sub4 1-1
-fid_fileinfo 6 [ (eval 0)[test51-enable.p:7] 1 7 6 2 0 0 ]
-fid_fileinfo 6 sub main::sub5 1-1
-fid_fileinfo 7 [ (eval 0)[test51-enable.p:7] 1 7 7 2 0 0 ]
-fid_fileinfo 7 sub main::sub6 1-1
-fid_fileinfo 8 [ (eval 0)[test51-enable.p:7] 1 7 8 2 0 0 ]
-fid_fileinfo 8 sub main::sub7 1-1
-fid_fileinfo 9 [ (eval 0)[test51-enable.p:7] 1 7 9 2 0 0 ]
-fid_fileinfo 9 sub main::sub8 1-1
-fid_fileinfo 10 [ (eval 0)[test51-enable.p:7] 1 7 10 2 0 0 ]
-fid_fileinfo 10 sub main::sub9 1-1
-fid_fileinfo 11 [ (eval 0)[test51-enable.p:7] 1 7 11 2 0 0 ]
-fid_fileinfo 11 sub main::sub10 1-1
+fid_fileinfo 1 call 16 main::sub1 [ 1 0 0 0 0 0 0
main::RUNTIME ]
+fid_fileinfo 1 call 18 DB::disable_profile [ 1 0 0 0 0 0 0
main::RUNTIME ]
fid_line_time 1 3 [ 0 1 ]
fid_line_time 1 4 [ 0 1 ]
fid_line_time 1 5 [ 0 1 ]
-fid_line_time 1 7 [ 0 2 ]
-fid_line_time 1 9 [ 0 1 ]
-fid_line_time 2 1 [ 0 3 ]
-fid_line_time 3 1 [ 0 2 ]
-fid_line_time 4 1 [ 0 2 ]
-fid_line_time 5 1 [ 0 2 ]
-fid_line_time 6 1 [ 0 2 ]
-fid_line_time 7 1 [ 0 2 ]
-fid_line_time 8 1 [ 0 2 ]
-fid_line_time 9 1 [ 0 2 ]
-fid_line_time 10 1 [ 0 2 ]
-fid_line_time 11 1 [ 0 2 ]
+fid_line_time 1 7 [ 0 1 ]
+fid_line_time 1 16 [ 0 1 ]
fid_sub_time 1 3 [ 0 1 ]
fid_sub_time 1 4 [ 0 1 ]
fid_sub_time 1 5 [ 0 1 ]
-fid_sub_time 1 7 [ 0 2 ]
-fid_sub_time 1 9 [ 0 1 ]
-fid_sub_time 2 1 [ 0 3 ]
-fid_sub_time 3 1 [ 0 2 ]
-fid_sub_time 4 1 [ 0 2 ]
-fid_sub_time 5 1 [ 0 2 ]
-fid_sub_time 6 1 [ 0 2 ]
-fid_sub_time 7 1 [ 0 2 ]
-fid_sub_time 8 1 [ 0 2 ]
-fid_sub_time 9 1 [ 0 2 ]
-fid_sub_time 10 1 [ 0 2 ]
-fid_sub_time 11 1 [ 0 2 ]
+fid_sub_time 1 7 [ 0 1 ]
+fid_sub_time 1 16 [ 0 1 ]
profile_modes fid_block_time block
profile_modes fid_line_time line
profile_modes fid_sub_time sub
sub_subinfo DB::disable_profile [ undef 0 0 1 0 0 0 0 ]
-sub_subinfo DB::disable_profile called_by 1 11 [ 1 0 0 0 0 0 0
main::RUNTIME ]
+sub_subinfo DB::disable_profile called_by 1 18 [ 1 0 0 0 0 0 0
main::RUNTIME ]
sub_subinfo main::BEGIN [ 1 0 0 0 0 0 0 0 ]
sub_subinfo main::CORE:unlink [ 1 0 0 1 0 0 0 0 ]
sub_subinfo main::CORE:unlink called_by 1 5 [ 1 0 0
0 0 0 0 main::RUNTIME ]
sub_subinfo main::RUNTIME [ 1 1 1 0 0 0 0 0 ]
-sub_subinfo main::sub1 [ 2 1 1 1 0 0 0 0 ]
-sub_subinfo main::sub1 called_by 1 9 [ 1 0 0 0 0 0 0
main::RUNTIME ]
-sub_subinfo main::sub10 [ 11 1 1 0 0 0 0 0 ]
-sub_subinfo main::sub2 [ 3 1 1 0 0 0 0 0 ]
-sub_subinfo main::sub3 [ 4 1 1 0 0 0 0 0 ]
-sub_subinfo main::sub4 [ 5 1 1 0 0 0 0 0 ]
-sub_subinfo main::sub5 [ 6 1 1 0 0 0 0 0 ]
-sub_subinfo main::sub6 [ 7 1 1 0 0 0 0 0 ]
-sub_subinfo main::sub7 [ 8 1 1 0 0 0 0 0 ]
-sub_subinfo main::sub8 [ 9 1 1 0 0 0 0 0 ]
-sub_subinfo main::sub9 [ 10 1 1 0 0 0 0 0 ]
+sub_subinfo main::sub1 [ 1 7 7 1 0 0 0 0 ]
+sub_subinfo main::sub1 called_by 1 16 [ 1 0 0 0 0 0 0
main::RUNTIME ]
+sub_subinfo main::sub2 [ 1 8 8 0 0 0 0 0 ]
+sub_subinfo main::sub3 [ 1 9 9 0 0 0 0 0 ]
+sub_subinfo main::sub4 [ 1 10 10 0 0 0 0 0 ]
+sub_subinfo main::sub5 [ 1 11 11 0 0 0 0 0 ]
+sub_subinfo main::sub6 [ 1 12 12 0 0 0 0 0 ]
+sub_subinfo main::sub7 [ 1 13 13 0 0 0 0 0 ]
+sub_subinfo main::sub8 [ 1 14 14 0 0 0 0 0 ]
=======================================
--- /trunk/t/test51-enable.x Thu May 20 15:40:57 2010
+++ /trunk/t/test51-enable.x Thu May 27 02:43:13 2010
@@ -7,7 +7,14 @@
0,1,0,my $file_c = "nytprof-test51-c.out";
0,1,0,unlink $file_b, $file_c;
0,0,0,
-0,2,0,eval "sub sub$_ { 1 }; 1;1;" for (1..10);
+0,1,0,sub sub1 { 1 }
+0,0,0,sub sub2 { 1 }
+0,0,0,sub sub3 { 1 }
+0,0,0,sub sub4 { 1 }
+0,0,0,sub sub5 { 1 }
+0,0,0,sub sub6 { 1 }
+0,0,0,sub sub7 { 1 }
+0,0,0,sub sub8 { 1 }
0,0,0,
0,1,0,sub1(); # profiled
0,0,0,
--
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]
