[Bio] / WebApplication / SimpleWebPage.pm Repository:
ViewVC logotype

Diff of /WebApplication/SimpleWebPage.pm

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

revision 1.5, Thu Jan 19 22:00:44 2012 UTC revision 1.6, Fri Jan 20 20:44:13 2012 UTC
# Line 44  Line 44 
44  sub output {  sub output {
45      my ($self) = @_;      my ($self) = @_;
46    
47        my $output;
48    
49        eval {
50      my $application = $self->application;      my $application = $self->application;
51      my $cgi = $application->cgi;      my $cgi = $application->cgi;
52    
# Line 56  Line 59 
59    
60      my $username = ref($user) ? $user->login : "";      my $username = ref($user) ? $user->login : "";
61    
     local $SIG{__DIE__} = sub {  
         my $trace = Devel::StackTrace->new(frame_filter => sub {  
             my($dat) = @_;  
             my $arg = $dat->{args}->[0];  
   
             return (defined($arg) && $arg eq 'Devel::StackTrace') ? 0 : 1;  
         });  
   
         die $trace->as_html;  
     };  
   
     my $output;  
   
     eval {  
62          $output = $self->page_content($fig, $cgi, $username, $url);          $output = $self->page_content($fig, $cgi, $username, $url);
63      };      };
64      if ($@)      if ($@)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3