Revision: 1350
Author: [email protected]
Date: Mon Sep 13 13:42:45 2010
Log: fix t/test20-streval.t and t/test50-disable.t for bleadperl ac56e7d
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1350
Modified:
/trunk/t/test20-streval.p
/trunk/t/test20-streval.x
/trunk/t/test50-disable.p
/trunk/t/test50-disable.x
=======================================
--- /trunk/t/test20-streval.p Mon Oct 27 16:49:08 2008
+++ /trunk/t/test20-streval.p Mon Sep 13 13:42:45 2010
@@ -8,7 +8,7 @@
eval $code;
# call twice from the same line
-eval $code or die $@ for (1,2);
+eval $code or die $@; eval $code or die $@;
# once from an eval inside an eval
eval "eval q{$code}";
=======================================
--- /trunk/t/test20-streval.x Sat Nov 1 01:06:13 2008
+++ /trunk/t/test20-streval.x Mon Sep 13 13:42:45 2010
@@ -11,7 +11,7 @@
0,1,0,eval $code;
0,0,0,
0,0,0,# call twice from the same line
-0,2,0,eval $code or die $@ for (1,2);
+0,2,0,eval $code or die $@; eval $code or die $@;
0,0,0,
0,0,0,# once from an eval inside an eval
0,1,0,eval "eval q{$code}";
=======================================
--- /trunk/t/test50-disable.p Wed Oct 8 09:50:46 2008
+++ /trunk/t/test50-disable.p Mon Sep 13 13:42:45 2010
@@ -1,7 +1,7 @@
-1;
+shift;
DB::disable_profile();
-1;
+shift;
DB::enable_profile();
-1;
+shift;
DB::disable_profile();
-1; # finish with profile disabled
+shift; # finish with profile disabled
=======================================
--- /trunk/t/test50-disable.x Mon Jan 5 15:05:37 2009
+++ /trunk/t/test50-disable.x Mon Sep 13 13:42:45 2010
@@ -1,10 +1,10 @@
# Profile data generated by Devel::NYTProf::Reader
# More information at http://search.cpan.org/dist/Devel-NYTProf/
# Format: time,calls,time/call,code
-0,1,0,1;
+0,1,0,shift;
0,1,0,DB::disable_profile();
-0,0,0,1;
+0,0,0,shift;
0,1,0,DB::enable_profile();
-0,1,0,1;
+0,1,0,shift;
0,0,0,DB::disable_profile();
-0,0,0,1; # finish with profile disabled
+0,0,0,shift; # finish with profile disabled
--
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]
