view release on metacpan or  search on metacpan

lib/Apache/PSP.pm  view on Meta::CPAN

  if ($page_code)
  {
    # execute the page generation code
    eval
    {
      &$page_code();
    };
    
    if ($@)
    {
      print qq{<font color="red"><tt>$@</tt></font>\n};
      
      # terminate this Apache process to avoid intermediate state problems
      # (temporary until a full cleanup handler is available)
      $r->child_terminate;
    }
  }
  else
  {
    # log the failure 
    $r->log_reason("Could not load page", $r->filename);
    print qq{<font color="red"><tt>Can't load page. $@</tt></font>\n};
    print qq{<p>Process $$ will be restarted.</p>\n};

    # terminate this Apache process to avoid intermediate state problems
    # (temporary until a full cleanup handler is available)
    $r->child_terminate;
  };
  
  return OK;
}