From 224615a9188c4e0861fad2c8dbc888a6e3fe0026 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 14 May 2006 19:45:16 +0000
Subject: [PATCH]  r650@llin:  dpavlin | 2006-05-14 20:21:30 +0200  added
 profile and profile2 targets

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@495 07558da8-63fa-0310-ba24-9fe276d99e06
---
 Makefile.PL | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/Makefile.PL b/Makefile.PL
index 6ac01ac..68a2301 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -39,6 +39,7 @@ sub MY::postamble {
 	return <<'MAKE_MORE';
 
 HTML_DIR=pod2html
+profile_perl=./run.pl
 
 html: $(TO_INST_PM)
 	test -e $(HTML_DIR) || mkdir $(HTML_DIR)
@@ -66,5 +67,11 @@ full: config_yml
 	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
 }
-- 
2.20.1