cvs commit: modperl-docs/src/docs/2.0/api/ModPerl Util.pod

[stas]

stas        2004/05/07 15:13:07

  Modified:    src/docs/2.0/api/ModPerl Util.pod
  Log:
  exit in eval update
  
  Revision  Changes    Path
  1.7       +8 -6      modperl-docs/src/docs/2.0/api/ModPerl/Util.pod
  
  Index: Util.pod
  ===================================================================
  RCS file: /home/cvs/modperl-docs/src/docs/2.0/api/ModPerl/Util.pod,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -u -r1.6 -r1.7
  --- Util.pod  29 Apr 2004 17:56:30 -0000      1.6
  +++ Util.pod  7 May 2004 22:13:07 -0000       1.7
  @@ -69,8 +69,8 @@
   
   =head2 C<exit>
   
  -Terminate the request, but not the current process (with threaded
  -Perls not the current Perl interpreter).
  +Terminate the request, but not the current process (or not the current
  +Perl interpreter with threaded mpms).
   
     ModPerl::Util::exit($status);
   
  @@ -82,7 +82,7 @@
   
   =item ret: no return value
   
  -=item since: 1.99_10
  +=item since: 1.99_14
   
   =back
   
  @@ -109,13 +109,15 @@
     }
     print "Still running";
   
  -will print I<Still running>. So you either need to check for the
  -exception:
  +will print I<Still running>. So you either need to check whether L<the
  +exception|docs::2.0::api::APR::Error> is specific to C<exit> and call
  +C<exit()> again:
   
  +  use ModPerl::Const -compile => 'EXIT';
     eval {
        exit;
     }
  -  exit if $@;
  +  exit if $@ && ref $@ eq 'APR::Error' && $@ == ModPerl::EXIT;
     print "Still running";
   
   or use C<CORE::exit()>:
  
  
  

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]