projects
/
MojoFacets.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ffc52e2
)
rename long-running pages > PROFILE s
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sat, 26 Jun 2010 22:20:03 +0000
(
00:20
+0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sat, 26 Jun 2010 22:20:03 +0000
(
00:20
+0200)
lib/MojoFacets/Plugin/NYTProf.pm
patch
|
blob
|
history
diff --git
a/lib/MojoFacets/Plugin/NYTProf.pm
b/lib/MojoFacets/Plugin/NYTProf.pm
index
7604a19
..
7cf729a
100644
(file)
--- a/
lib/MojoFacets/Plugin/NYTProf.pm
+++ b/
lib/MojoFacets/Plugin/NYTProf.pm
@@
-28,7
+28,9
@@
sub register {
my $duration = Time::HiRes::gettimeofday() - $id;
if ( $duration > $p ) {
my $path = "/tmp/nytprof.$id";
my $duration = Time::HiRes::gettimeofday() - $id;
if ( $duration > $p ) {
my $path = "/tmp/nytprof.$id";
- warn "profile $path $duration ", -s $path, " bytes\n";
+ my $new = "/tmp/MojoFacets.profile-$id-$duration";
+ rename $path, $new;
+ warn "profile $new $duration ", -s $new, " bytes\n";
} else {
warn "profile $path $duration < $p unlink\n";
unlink $path;
} else {
warn "profile $path $duration < $p unlink\n";
unlink $path;