cvs commit: p5ee/App-Context/lib/App/Context HTTP.pm

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);
               #}