Revision: 1084
Author: tim.bunce
Date: Wed Feb 24 06:48:26 2010
Log: Whitespace tweaks in NYTProf.xs. Show d_sysconf in t/00-load. Show
ticks_per_sec in t/61-cputime.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1084
Modified:
/trunk/NYTProf.xs
/trunk/t/00-load.t
/trunk/t/61-cputime.t
=======================================
--- /trunk/NYTProf.xs Sun Feb 21 08:38:54 2010
+++ /trunk/NYTProf.xs Wed Feb 24 06:48:26 2010
@@ -1349,7 +1349,7 @@
times(&end_ctime);
overflow = 0; /* XXX */
elapsed = end_ctime.tms_utime - start_ctime.tms_utime
- + end_ctime.tms_stime - start_ctime.tms_stime;
+ + end_ctime.tms_stime - start_ctime.tms_stime;
}
else {
get_time_of_day(end_time);
@@ -3098,7 +3098,7 @@
if (file_lines_len > 4
&& filename[file_lines_len - 2] == '-' &&
filename[file_lines_len - 1] == '0'
&& filename[file_lines_len - 4] != ':' &&
filename[file_lines_len - 3] != '0')
- continue;
+ continue;
first = strrchr(filename, ':');
filename_len = (first) ? first - filename : 0;
=======================================
--- /trunk/t/00-load.t Sat Feb 20 07:28:32 2010
+++ /trunk/t/00-load.t Wed Feb 24 06:48:26 2010
@@ -19,7 +19,7 @@
diag "--- Perl $] Config on $Config{archname}:";
diag "\t$_: ".(defined $Config{$_} ? $Config{$_} : '(undef)')
for qw(
- d_gettimeod
+ d_gettimeod d_sysconf
);
if ("$Config{archname} $Config{osvers}" =~ /\b xen \b/x) {
=======================================
--- /trunk/t/61-cputime.t Wed Feb 24 02:40:49 2010
+++ /trunk/t/61-cputime.t Wed Feb 24 06:48:26 2010
@@ -21,14 +21,17 @@
extra_test_count => 6,
extra_test_code => sub {
my ($profile, $env) = @_;
+ my $trace = ($^O eq 'freebsd'); # XXX temp
$profile = profile_this(
src_code => $src_code,
out_file => $env->{file},
#htmlopen => 1,
- verbose => ($^O eq 'freebsd'), # XXX temp
+ verbose => $trace,
);
isa_ok $profile, 'Devel::NYTProf::Data';
+ warn "ticks_per_sec ".$profile->attributes->{ticks_per_sec}."\n"
+ if $trace;
my $subs = $profile->subname_subinfo_map;
my $sub = $subs->{'main::foo'};
--
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]
