--- trunk/Makefile.PL 2006/01/28 14:58:30 392 +++ trunk/Makefile.PL 2006/05/14 22:07:38 500 @@ -28,6 +28,9 @@ 'File::Path' => 0, 'Biblio::Isis' => 0.13, 'MARC::Fast' => 0.02, + 'Search::Estraier' => 0.06, + 'List::Util' => 0, + 'Spreadsheet::ParseExcel', => 0, }, dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', }, clean => { FILES => 'WebPAC-* pod2html Makefile tags' }, @@ -37,6 +40,7 @@ return <<'MAKE_MORE'; HTML_DIR=pod2html +profile_perl=./run.pl html: $(TO_INST_PM) test -e $(HTML_DIR) || mkdir $(HTML_DIR) @@ -55,6 +59,8 @@ config_yml: test ! -e conf/config.yml && ln -s /data/Webpacus/config.yml conf/ || true + #perl -c conf/normalize/*.pl + perl -c conf/normalize/*.pl 2>&1 | grep 'conf/normalize' | grep -v 'OK' | sed -e 's#^.*conf/normalize#conf/normalize#' -e 's#,##' | awk '{ print "+" $3 " " $1 }' | xargs -i echo vi {} run: config_yml rm -f log @@ -64,5 +70,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 }