cvsuser 05/11/07 19:46:21
Modified: App-Context/lib/App/Context HTTP.pm
Log:
move eval{} to better catch exceptions
Revision Changes Path
1.10 +8 -8 p5ee/App-Context/lib/App/Context/HTTP.pm
Index: HTTP.pm
===================================================================
RCS file: /cvs/public/p5ee/App-Context/lib/App/Context/HTTP.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- HTTP.pm 9 Aug 2005 19:07:41 -0000 1.9
+++ HTTP.pm 8 Nov 2005 03:46:21 -0000 1.10
@@ -129,14 +129,14 @@
&App::sub_entry if ($App::trace);
my ($self) = @_;
- $self->dispatch_events_begin();
+ eval {
+ $self->dispatch_events_begin();
- my $events = $self->{events};
- my ($event, $service, $name, $method, $args);
- my $results = "";
- # my $display_current_widget = 1;
+ my $events = $self->{events};
+ my ($event, $service, $name, $method, $args);
+ my $results = "";
+ # my $display_current_widget = 1;
- eval {
while ($#$events > -1) {
$event = shift(@$events);
($service, $name, $method, $args) = @$event;
@@ -152,7 +152,7 @@
#if ($display_current_widget) { }
#if (! defined $results) {
my $type = $self->so_get("default","ctype","SessionObject");
- my $name = $self->so_get("default","cname");
+ $name = $self->so_get("default","cname");
#if ($xyz) {
$results = $self->service($type, $name);
#}
