From cf1549160f886c37b4ee53b875c19304d1cdce90 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Tue, 27 Oct 2009 15:35:07 +0100
Subject: [PATCH] Time::HiRes um Zeit Stats im Footer anzuzeigen.

---
 am.pl | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/am.pl b/am.pl
index a70e45233..0df30277a 100755
--- a/am.pl
+++ b/am.pl
@@ -32,9 +32,15 @@
 
 use strict;
 
+use Time::HiRes qw(gettimeofday tv_interval);
+
+my $time;
+
 BEGIN {
   unshift @INC, "modules/override"; # Use our own versions of various modules (e.g. YAML).
   push    @INC, "modules/fallback"; # Only use our own versions of modules if there's no system version.
+
+  $time = [gettimeofday];
 }
 
 # setup defaults, DO NOT CHANGE
@@ -172,5 +178,8 @@ sub _show_error {
   exit;
 }
 
+END {
+  print "<!-- time elapsed: ", tv_interval($time), "s -->";
+}
 # end
 
-- 
2.20.1