--- trunk/Makefile.PL 2005/12/27 23:24:36 331 +++ trunk/Makefile.PL 2006/05/14 19:45:16 495 @@ -12,7 +12,7 @@ 'Test::More' => 0, 'YAML' => 0, 'File::Slurp' => 0, - 'Log::Log4perl' => 0, + 'Log::Log4perl' => 1.02, 'Data::Dumper' => 0, 'Cwd' => 0, 'Text::Iconv' => 0, @@ -28,6 +28,8 @@ 'File::Path' => 0, 'Biblio::Isis' => 0.13, 'MARC::Fast' => 0.02, + 'Search::Estraier' => 0.06, + 'List::Util' => 0, }, dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', }, clean => { FILES => 'WebPAC-* pod2html Makefile tags' }, @@ -37,6 +39,7 @@ return <<'MAKE_MORE'; HTML_DIR=pod2html +profile_perl=./run.pl html: $(TO_INST_PM) test -e $(HTML_DIR) || mkdir $(HTML_DIR) @@ -64,5 +67,11 @@ rm -f log ./run.pl +profile: + perl -d:DProf $(profile_perl) --limit 500 && dprofpp > profile.`perl -e 'my @p = glob("profile.[0-9]*"); print scalar @p + 1'` + +profile2: + perl -d:SmallProf $(profile_perl) --limit 100 && sort -k 2nr,2 smallprof.out | vi -R - + MAKE_MORE }