Revision: 1207
Author: tim.bunce
Date: Fri Apr 30 14:39:05 2010
Log: Restore sorting of jump-to-filename drop-down.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1207
Modified:
/trunk/bin/nytprofhtml
=======================================
--- /trunk/bin/nytprofhtml Wed Apr 28 10:16:21 2010
+++ /trunk/bin/nytprofhtml Fri Apr 30 14:39:05 2010
@@ -661,8 +661,9 @@
print $fh qq{<div class="jump_to_file"><form name="jump">};
print $fh qq{<select name="file"
onChange="location.href=document.jump.file.value;">\n};
printf $fh qq{<option disabled="disabled">%s</option>\n}, "Jump to
file...";
- foreach my $fi ($profile->noneval_fileinfos) {
- printf $fh qq{<option value="#f%s">%s</option>\n}, $fi->fid,
$fi->filename;
+ foreach my $fi (sort { $a->filename cmp $b->filename }
$profile->noneval_fileinfos) {
+ printf $fh qq{<option value="#f%s">%s</option>\n},
+ $fi->fid, _escape_html($fi->filename);
}
print $fh "</select></form></div>\n";
}
--
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]
