[system] / trunk / webwork-modperl / lib / Apache / WeBWorK.pm Repository:
ViewVC logotype

Diff of /trunk/webwork-modperl/lib/Apache/WeBWorK.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 1140 Revision 1141
… …
31 31
32=cut 32=cut
33 33
34use strict; 34use strict;
35use warnings; 35use warnings;
36use DB; 36use Apache::DB;
37use WeBWorK; 37use WeBWorK;
38 38
39sub handler($) { 39sub handler($) {
40 my ($r) = @_; 40 my ($r) = @_;
41 41
… …
50 }; 50 };
51 51
52 # the __DIE__ handler stores the call stack at the time of an error 52 # the __DIE__ handler stores the call stack at the time of an error
53 local $SIG{__DIE__} = sub { 53 local $SIG{__DIE__} = sub {
54 my ($error) = @_; 54 my ($error) = @_;
55 my $trace = join "\n", DB::backtrace(); 55 my $trace = join "\n", Apache::DB->backtrace();
56 $r->notes("lastCallStack" => $trace); 56 $r->notes("lastCallStack" => $trace);
57 die $error; 57 die $error;
58 }; 58 };
59 59
60 eval { WeBWorK::dispatch($r) }; 60 eval { WeBWorK::dispatch($r) };
Legend:
Removed from v.1140  
changed lines
  Added in v.1141
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9