blob: f16dfceb5a7728fb9aab170cc67a943df08f3fa7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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";
|