Make errors return log a stack trace.

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index 91b4f48b683340bfc3a8443723989b817911e811..4ddc0daedc581c9461a6787ddb702696271a9672 100644 (file)
--- 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 Apache2::Log;
 use ModPerl::Util;
 

+use Carp;

 use DBI;
 use DBD::Pg;
 use Image::Magick;
 use DBI;
 use DBD::Pg;
 use Image::Magick;


@@ -67,6 +68,7 @@ sub error {
         footer($r);
 
        $r->log->error($err);
         footer($r);
 
        $r->log->error($err);

+       $r->log->error("Stack trace follows: " . Carp::longmess());

 
        ModPerl::Util::exit();
 }
 
        ModPerl::Util::exit();
 }