diff options
Diffstat (limited to 'app.psgi')
-rwxr-xr-x | app.psgi | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/app.psgi b/app.psgi new file mode 100755 index 0000000..f16dfce --- /dev/null +++ b/app.psgi @@ -0,0 +1,22 @@ +#!/usr/bin/perl + +use strict; +use warnings; + +use FindBin qw($Bin); +use Devel::StackTrace; + +BEGIN { + $SIG{__DIE__} = sub { + return if $^S; + + my $error = shift; + my $trace = Devel::StackTrace->new; + print STDERR "\nError: $error", + "Stack Trace:\n", + $trace->as_string, "\n"; + }; +} + +$Bin = "$Bin/../bin/cgi-bin"; +do "$Bin/app.psgi"; |