From c690575ab4ed0f6784da9e01fdcab20a49256f7c Mon Sep 17 00:00:00 2001
From: Othmar Gsenger <otti@wirdorange.org>
Date: Mon, 14 May 2012 20:30:37 +0000
Subject: added error messages

---
 nzbget/main.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'nzbget/main.pm')

diff --git a/nzbget/main.pm b/nzbget/main.pm
index 1ff34c5..5d963f0 100644
--- a/nzbget/main.pm
+++ b/nzbget/main.pm
@@ -3,6 +3,9 @@ package nzbget::main;
 use strict;
 use warnings FATAL => 'all';
 no warnings 'redefine';
+BEGIN {
+    $SIG{__DIE__} = \&handle_errors;
+}
 
 use Apache2::RequestRec ();
 use Apache2::RequestIO ();
@@ -20,6 +23,17 @@ use nzbget::remove;
 use nzbget::search;
 use nzbget::menu;
 use nzbget::search_upload;
+use ModPerl::Util;
+
+sub handle_errors {
+#  die @_ if $^S;
+     
+  my $msg = shift;
+#  print "Content-type: text/plain\n\n";
+  print $msg;
+  ModPerl::Util::exit;
+  return;
+}
 
 my %modules =
 (
-- 
cgit v1.2.3