From: Steinar H. Gunderson <sesse@debian.org>
Date: Mon, 25 Dec 2006 20:38:13 +0000 (+0100)
Subject: Make errors return log a stack trace.
X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=150143c86481611f06d86a0956b6b7965b1c0c88

Make errors return log a stack trace.
---

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index 91b4f48..4ddc0da 100644
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -11,6 +11,7 @@ use Apache2::Const -compile => ':common';
 use Apache2::Log;
 use ModPerl::Util;
 
+use Carp;
 use DBI;
 use DBD::Pg;
 use Image::Magick;
@@ -67,6 +68,7 @@ sub error {
         footer($r);
 
 	$r->log->error($err);
+	$r->log->error("Stack trace follows: " . Carp::longmess());
 
 	ModPerl::Util::exit();
 }