Capture the PID from the filename properly.

TODO: refactor this more cleanly, I don't like it.
perlpilot · Jul 23, 2011 · f6d444a · f6d444a
1 parent 1f756e2
commit f6d444a
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/lib/Dancer/Plugin/NYTProf.pm b/lib/Dancer/Plugin/NYTProf.pm
@@ -96,8 +96,11 @@ LISTSTART
         my $label = $file;
         $label =~ s{nytprof\.out\.}{};
         $label =~ s{_}{/}g;
+        $label =~ s{\.(\d+)$}{};
+        my $pid = $1;  # refactor this crap
         my $created = scalar localtime( (stat $fullfilepath)->ctime );
-        $html .= qq{<li><a href="/nytprof/$file">$label</a> ($created)</li>};
+        $html .= qq{<li><a href="/nytprof/$file">$label</a>}
+               . qq{ (PID $pid, $created)</li>};
     }
 
     $html .= <<LISTEND;