cvs commit: embperl Embperl.pm epmain.c

[richter]

richter     01/11/02 02:15:23

  Modified:    .        Embperl.pm epmain.c
  Log:
  Better error reporting
  
  Revision  Changes    Path
  1.174     +1 -1      embperl/Embperl.pm
  
  Index: Embperl.pm
  ===================================================================
  RCS file: /home/cvs/embperl/Embperl.pm,v
  retrieving revision 1.173
  retrieving revision 1.174
  diff -u -r1.173 -r1.174
  --- Embperl.pm        2001/11/02 10:03:48     1.173
  +++ Embperl.pm        2001/11/02 10:15:22     1.174
  @@ -10,7 +10,7 @@
   #   IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
   #   WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
   #
  -#   $Id: Embperl.pm,v 1.173 2001/11/02 10:03:48 richter Exp $
  +#   $Id: Embperl.pm,v 1.174 2001/11/02 10:15:22 richter Exp $
   #
   ###################################################################################
   
  @@ -429,7 +429,7 @@
       if ($@)
           { 
           warn "[$$]SES:  Embperl Session management DISABLED beause of following 
error: $@\n" .
  -             "Set \$ENV{EMBPERL_SESSION_HANDLER_CLASS} to 'no' before loading 
Embperl to avoid this message" ;
  +             "Set \$ENV{EMBPERL_SESSION_HANDLER_CLASS} to 'no' before loading 
Embperl to avoid this message" if ($ENV{GATEWAY_INTERFACE}) ;
           $SessionMgnt = 0 ;
           }
       else
  
  
  
  1.116     +3 -3      embperl/epmain.c
  
  Index: epmain.c
  ===================================================================
  RCS file: /home/cvs/embperl/epmain.c,v
  retrieving revision 1.115
  retrieving revision 1.116
  diff -u -r1.115 -r1.116
  --- epmain.c  2001/11/02 10:03:48     1.115
  +++ epmain.c  2001/11/02 10:15:22     1.116
  @@ -10,7 +10,7 @@
   #   IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
   #   WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
   #
  -#   $Id: epmain.c,v 1.115 2001/11/02 10:03:48 richter Exp $
  +#   $Id: epmain.c,v 1.116 2001/11/02 10:15:22 richter Exp $
   #
   
###################################################################################*/
   
  @@ -182,10 +182,10 @@
       if (r -> bOptions & optShowBacktrace)
           {
           req * l = r ;
  -        while (l)
  +        while (l && l != &InitialReq)
               {
  -            sv_catpvf(pSV, "\n    %s", (!r -> Buf.pFile || !r -> Buf.pFile -> 
sSourcefile)?"<no filename available>":r -> Buf.pFile -> sSourcefile) ;
  -            l = r -> pLastReq ;
  +            sv_catpvf(pSV, "\n    * %s", (!l -> Buf.pFile || !l -> Buf.pFile -> 
sSourcefile)?"<no filename available>":l -> Buf.pFile -> sSourcefile) ;
  +            l = l -> pLastReq ;
               }
           }
   
  
  
  

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