Make errors return log a stack trace.
authorSteinar H. Gunderson <sesse@debian.org>
Mon, 25 Dec 2006 20:38:13 +0000 (21:38 +0100)
committerSteinar H. Gunderson <sesse@debian.org>
Mon, 25 Dec 2006 20:38:13 +0000 (21:38 +0100)
perl/Sesse/pr0n/Common.pm

index 91b4f48b683340bfc3a8443723989b817911e811..4ddc0daedc581c9461a6787ddb702696271a9672 100644 (file)
@@ -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();
 }