You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2001/10/31 15:53:32 UTC

cvs commit: embperl/test/cmp2 error.htm errormismatch.htm errormismatchcmd.htm unclosed.htm varerr.htm varerr.htm56

richter     01/10/31 06:53:32

  Modified:    .        Tag: Embperl2c epcomp.c epmain.c
               test/cmp Tag: Embperl2c discard.htm error.htm
                        includeerr1.htm includeerr2.htm opmasktrap.htm
                        unclosed.htm varerr.htm varerr.htm56
               test/cmp2 Tag: Embperl2c error.htm errormismatch.htm
                        errormismatchcmd.htm unclosed.htm varerr.htm
                        varerr.htm56
  Log:
  Embperl 2 - more verbose error messages
  
  Revision  Changes    Path
  No                   revision
  
  
  No                   revision
  
  
  1.4.2.66  +2 -2      embperl/Attic/epcomp.c
  
  Index: epcomp.c
  ===================================================================
  RCS file: /home/cvs/embperl/Attic/epcomp.c,v
  retrieving revision 1.4.2.65
  retrieving revision 1.4.2.66
  diff -u -r1.4.2.65 -r1.4.2.66
  --- epcomp.c	2001/10/31 12:04:25	1.4.2.65
  +++ epcomp.c	2001/10/31 14:53:31	1.4.2.66
  @@ -9,7 +9,7 @@
   #   IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
   #   WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
   #
  -#   $Id: epcomp.c,v 1.4.2.65 2001/10/31 12:04:25 richter Exp $
  +#   $Id: epcomp.c,v 1.4.2.66 2001/10/31 14:53:31 richter Exp $
   #
   ###################################################################################*/
   
  @@ -469,7 +469,7 @@
   	}
   	
       strncpy (pCurrReq -> errdat1, Node_selfNodeName (pNode), sizeof (pCurrReq -> errdat1)) ;
  -    sprintf (pCurrReq -> errdat2, "'%s', starttag should be '%s'", s, sStackValue) ;
  +    sprintf (pCurrReq -> errdat2, "'%s', starttag should be '%s' or there is a 'end%s' missing", s, sStackValue, s) ;
       pCurrReq -> Buf.pCurrPos	 = NULL ;
       pCurrReq -> Buf.nSourceline = pNode -> nLinenumber ;
   
  
  
  
  1.75.4.50 +8 -7      embperl/epmain.c
  
  Index: epmain.c
  ===================================================================
  RCS file: /home/cvs/embperl/epmain.c,v
  retrieving revision 1.75.4.49
  retrieving revision 1.75.4.50
  diff -u -r1.75.4.49 -r1.75.4.50
  --- epmain.c	2001/10/31 14:13:51	1.75.4.49
  +++ epmain.c	2001/10/31 14:53:31	1.75.4.50
  @@ -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.75.4.49 2001/10/31 14:13:51 richter Exp $
  +#   $Id: epmain.c,v 1.75.4.50 2001/10/31 14:53:31 richter Exp $
   #
   ###################################################################################*/
   
  @@ -75,7 +75,7 @@
       const char * msg ;
       char * sText ;
       SV *   pSV ;
  -    SV *   pSVLine ;
  +    SV *   pSVLine = NULL ;
       SV **  ppSV ;
       STRLEN l ;
       int    n ;
  @@ -152,11 +152,11 @@
   	default:                        msg ="[%d]ERR:  %d: %s Error %s%s" ; break ; 
           }
   
  -    if (rc != rcPerlWarn && rc != rcEvalErr)
  +    if ((rc != rcPerlWarn && rc != rcEvalErr) || r -> errdat1[0] == '\0')
           {
  -        int len ;
           char * p = NULL ;
  -        if (!r -> Buf.pFile -> sSourcefile)
  +        char buf[20] = "" ;
  +        if (!r -> Buf.pFile || !r -> Buf.pFile -> sSourcefile)
               p = "" ;
           if (!p)
               p = strrchr (r -> Buf.pFile -> sSourcefile, '/') ;
  @@ -168,8 +168,9 @@
               p = r -> Buf.pFile -> sSourcefile ;
           else
               p++ ;
  -        len = strlen (p) ;
  -        pSVLine = newSVpvf ("%s(%d):", p, r -> Buf.nSourceline) ;
  +        if (r -> Buf.nSourceline)
  +            sprintf (buf, "(%d)", r -> Buf.nSourceline) ;
  +        pSVLine = newSVpvf ("%s%s:", p, buf) ;
           }
   
      
  
  
  
  No                   revision
  
  
  No                   revision
  
  
  1.3.6.1   +11 -11    embperl/test/cmp/discard.htm
  
  Index: discard.htm
  ===================================================================
  RCS file: /home/cvs/embperl/test/cmp/discard.htm,v
  retrieving revision 1.3
  retrieving revision 1.3.6.1
  diff -u -r1.3 -r1.3.6.1
  --- discard.htm	1999/10/05 06:02:04	1.3
  +++ discard.htm	2001/10/31 14:53:31	1.3.6.1
  @@ -2,17 +2,17 @@
   <H1>Internal Server Error</H1>
   The server encountered an internal error or misconfiguration and was unable to complete your request.<P>
   ^Please contact the server administrator\,.*?and inform them of the time the error occurred\, and anything you might have done that may have caused the error\.<P><P>
  -^-\[.*?\]ERR\:  \d+\: Line 60\: Warning in Perl code\: 	\(in cleanup\) Can't find string terminator '&quot;' anywhere before EOF at
  -^\[.*?\]ERR\:  \d+\: Line 60\: Error in Perl code\: 	\(in cleanup\) Can't find string terminator '&quot;' anywhere before EOF at
  -^-\[.*?\]ERR\:  \d+\: Line 68\: Warning in Perl code\: 	\(in cleanup\) Can't find string terminator '&quot;' anywhere before EOF at
  -^\[.*?\]ERR\:  \d+\: Line 68\: Error in Perl code\: 	\(in cleanup\) Can't find string terminator '&quot;' anywhere before EOF at
  -^\[.*?\]ERR\:  \d+\: Line 68\: Error in Perl code\: 	\(in cleanup\) Can't find string terminator '&quot;' anywhere before EOF at
  -^\[.*?\]ERR\:  \d+\: Line 68\: Error in Perl code\: 	\(in cleanup\) Can't find string terminator '&quot;' anywhere before EOF at
  -^\[.*?\]ERR\:  \d+\: Line 68\: Error in Perl code\: 	\(in cleanup\) Can't find string terminator '&quot;' anywhere before EOF at
  -^-\[.*?\]ERR\:  \d+\: Line 72\: Warning in Perl code\: 	\(in cleanup\) Can't find string terminator '&quot;' anywhere before EOF at
  -^\[.*?\]ERR\:  \d+\: Line 72\: Error in Perl code\: 	\(in cleanup\) Can't find string terminator '&quot;' anywhere before EOF at
  -^-\[.*?\]ERR\:  \d+\: Line 78\: Warning in Perl code\: 	\(in cleanup\) Can't find string terminator '&quot;' anywhere before EOF at
  -^\[.*?\]ERR\:  \d+\: Line 78\: Error in Perl code\: 	\(in cleanup\) Can't find string terminator '&quot;' anywhere before EOF at
  +^-\[.*?\]ERR\:  \d+\:  Warning in Perl code\: 	\(in cleanup\) Can't find string terminator '&quot;' anywhere before EOF at
  +^\[.*?\]ERR\:  \d+\:  Error in Perl code\: 	\(in cleanup\) Can't find string terminator '&quot;' anywhere before EOF at
  +^-\[.*?\]ERR\:  \d+\:  Warning in Perl code\: 	\(in cleanup\) Can't find string terminator '&quot;' anywhere before EOF at
  +^\[.*?\]ERR\:  \d+\:  Error in Perl code\: 	\(in cleanup\) Can't find string terminator '&quot;' anywhere before EOF at
  +^\[.*?\]ERR\:  \d+\:  Error in Perl code\: 	\(in cleanup\) Can't find string terminator '&quot;' anywhere before EOF at
  +^\[.*?\]ERR\:  \d+\:  Error in Perl code\: 	\(in cleanup\) Can't find string terminator '&quot;' anywhere before EOF at
  +^\[.*?\]ERR\:  \d+\:  Error in Perl code\: 	\(in cleanup\) Can't find string terminator '&quot;' anywhere before EOF at
  +^-\[.*?\]ERR\:  \d+\:  Warning in Perl code\: 	\(in cleanup\) Can't find string terminator '&quot;' anywhere before EOF at
  +^\[.*?\]ERR\:  \d+\:  Error in Perl code\: 	\(in cleanup\) Can't find string terminator '&quot;' anywhere before EOF at
  +^-\[.*?\]ERR\:  \d+\:  Warning in Perl code\: 	\(in cleanup\) Can't find string terminator '&quot;' anywhere before EOF at
  +^\[.*?\]ERR\:  \d+\:  Error in Perl code\: 	\(in cleanup\) Can't find string terminator '&quot;' anywhere before EOF at
   ^ HTML\:\:Embperl.*?<P>
   </BODY></HTML>
   
  
  
  
  1.5.6.1   +15 -15    embperl/test/cmp/error.htm
  
  Index: error.htm
  ===================================================================
  RCS file: /home/cvs/embperl/test/cmp/error.htm,v
  retrieving revision 1.5
  retrieving revision 1.5.6.1
  diff -u -r1.5 -r1.5.6.1
  --- error.htm	2000/03/28 19:14:11	1.5
  +++ error.htm	2001/10/31 14:53:31	1.5.6.1
  @@ -2,23 +2,23 @@
   <H1>Internal Server Error</H1>
   The server encountered an internal error or misconfiguration and was unable to complete your request.<P>
   ^Please contact the server administrator\,.*?and inform them of the time the error occurred\, and anything you might have done that may have caused the error
  -^\[.*?\]ERR\:  32\: Line 13\: Warning in Perl code\: Use of uninitialized value 
  -^\[.*?\]ERR\:  32\: Line 14\: Warning in Perl code\: Use of uninitialized value 
  -^\[.*?\]ERR\:  32\: Line 15\: Warning in Perl code\: Use of uninitialized value 
  -^\[.*?\]ERR\:  32\: Line 16\: Warning in Perl code\: Use of uninitialized value 
  -^\[.*?\]ERR\:  32\: Line 17\: Warning in Perl code\: Use of uninitialized value 
  -^^\[.*?\]ERR\:  32\: Line 21\: Warning in Perl code\: Unquoted string &quot;qqqqqqqqqqqqqq&quot; may clash with future reserved word at .*? line \d*\.
  -^\[.*?\]ERR\:  24\: Line 21\: Error in Perl code\: syntax error at .*? line \d*\, at EOF
  -^\[.*?\]ERR\:  24\: Line 32\: Error in Perl code\: syntax error at .*? line \d*\, at EOF
  -^\[.*?\]ERR\:  24\: Line 32\: Error in Perl code\: Can.*?
  -^\[.*?\]ERR\:  32\: Line 32\: Warning in Perl code\: Use of uninitialized value
  -^^\[.*?\]ERR\:  32\: Line 46\: Warning in Perl code\: Bareword found where operator expected at .*?
  -^^\[.*?\]ERR\:  32\: Line 46\: Warning in Perl code\: 	\(Missing operator before is\?\)
  -^\[.*?\]ERR\:  24\: Line 46\: Error in Perl code\: syntax error at .*? line \d*\, near \&quot\;\$error is here \&quot\;
  +^\[.*?\]ERR\:  32\:  Warning in Perl code\: Use of uninitialized value 
  +^\[.*?\]ERR\:  32\:  Warning in Perl code\: Use of uninitialized value 
  +^\[.*?\]ERR\:  32\:  Warning in Perl code\: Use of uninitialized value 
  +^\[.*?\]ERR\:  32\:  Warning in Perl code\: Use of uninitialized value 
  +^\[.*?\]ERR\:  32\:  Warning in Perl code\: Use of uninitialized value 
  +^^\[.*?\]ERR\:  32\: Warning in Perl code\: Unquoted string &quot;qqqqqqqqqqqqqq&quot; may clash with future reserved word at .*? line \d*\.
  +^\[.*?\]ERR\:  24\:  Error in Perl code\: syntax error at .*? line \d*\, at EOF
  +^\[.*?\]ERR\:  24\:  Error in Perl code\: syntax error at .*? line \d*\, at EOF
  +^\[.*?\]ERR\:  24\:  Error in Perl code\: Can.*?
  +^\[.*?\]ERR\:  32\:  Warning in Perl code\: Use of uninitialized value
  +^^\[.*?\]ERR\:  32\:  Warning in Perl code\: Bareword found where operator expected at .*?
  +^^\[.*?\]ERR\:  32\:  Warning in Perl code\: 	\(Missing operator before is\?\)
  +^\[.*?\]ERR\:  24\:  Error in Perl code\: syntax error at .*? line \d*\, near \&quot\;\$error is here \&quot\;
   ^<br>&nbsp;&nbsp;&nbsp;&nbsp;Missing right .*?bracket at .*? line \d*\, at end of line
   ^<br>&nbsp;&nbsp;&nbsp;&nbsp;syntax error at .*? line \d*\, at EOF
  -^\[.*?\]ERR\:  20\: Line 58\: \&lt\;\/tr\&gt\; without \&lt\;tr\&gt\;
  -^\[.*?\]ERR\:  45\: Line 58\: Unclosed HTML tag &lt;table&gt; at end of file
  +^\[.*?\]ERR\:  20\: error.htm\(58\)\: \&lt\;\/tr\&gt\; without \&lt\;tr\&gt\;
  +^\[.*?\]ERR\:  45\: error.htm\(58\)\: Unclosed HTML tag &lt;table&gt; at end of file
   ^ HTML\:\:Embperl.*?<P>
   </BODY></HTML>
   
  
  
  
  1.2.6.5   +1 -1      embperl/test/cmp/includeerr1.htm
  
  Index: includeerr1.htm
  ===================================================================
  RCS file: /home/cvs/embperl/test/cmp/includeerr1.htm,v
  retrieving revision 1.2.6.4
  retrieving revision 1.2.6.5
  diff -u -r1.2.6.4 -r1.2.6.5
  --- includeerr1.htm	2001/05/11 07:14:25	1.2.6.4
  +++ includeerr1.htm	2001/10/31 14:53:31	1.2.6.5
  @@ -2,7 +2,7 @@
   <H1>Internal Server Error</H1>
   The server encountered an internal error or misconfiguration and was unable to complete your request.<P>
   ^Please contact the server administrator\,.*?and inform them of the time the error occurred\, and anything you might have done that may have caused the error
  -^\[.*?\]ERR\:  24\: Line \d+\: Error in Perl code: Can't locate object method &quot;is&quot; via package &quot;here&quot;
  +^\[.*?\]ERR\:  24\:  Error in Perl code: Can't locate object method &quot;is&quot; via package &quot;here&quot;
   ^ HTML\:\:Embperl.*?<P>
   </BODY></HTML>
   
  
  
  
  1.3.6.5   +10 -10    embperl/test/cmp/includeerr2.htm
  
  Index: includeerr2.htm
  ===================================================================
  RCS file: /home/cvs/embperl/test/cmp/includeerr2.htm,v
  retrieving revision 1.3.6.4
  retrieving revision 1.3.6.5
  diff -u -r1.3.6.4 -r1.3.6.5
  --- includeerr2.htm	2001/05/11 07:14:26	1.3.6.4
  +++ includeerr2.htm	2001/10/31 14:53:31	1.3.6.5
  @@ -2,16 +2,16 @@
   <H1>Internal Server Error</H1>
   The server encountered an internal error or misconfiguration and was unable to complete your request.<P>
   ^Please contact the server administrator\,.*?and inform them of the time the error occurred\, and anything you might have done that may have caused the error
  -^-\[.*?\]ERR\:  32\: Line \d+\: Warning in Perl code: Use of uninitialized value
  -^-\[.*?\]ERR\:  32\: Line \d+\: Warning in Perl code: Use of uninitialized value
  -^-\[.*?\]ERR\:  32\: Line \d+\: Warning in Perl code: Use of uninitialized value
  -^-\[.*?\]ERR\:  32\: Line \d+\: Warning in Perl code: Use of uninitialized value
  -^\[.*?\]ERR\:  24\: Line \d+\: Error in Perl code: Can't locate object method &quot;is&quot; via package &quot;here&quot;
  -^-\[.*?\]ERR\:  32\: Line \d+\: Warning in Perl code: Use of uninitialized value
  -^-\[.*?\]ERR\:  24\: Line \d+\: Error in Perl code: Can't locate object method &quot;is&quot; via package &quot;here&quot;
  -^-\[.*?\]ERR\:  32\: Line \d+\: Warning in Perl code: Use of uninitialized value
  -^-\[.*?\]ERR\:  24\: Line \d+\: Error in Perl code: Can't locate object method &quot;is&quot; via package &quot;here&quot;
  -^-\[.*?\]ERR\:  32\: Line \d+\: Warning in Perl code: Use of uninitialized value
  +^-\[.*?\]ERR\:  32\:  Warning in Perl code: Use of uninitialized value
  +^-\[.*?\]ERR\:  32\:  Warning in Perl code: Use of uninitialized value
  +^-\[.*?\]ERR\:  32\:  Warning in Perl code: Use of uninitialized value
  +^-\[.*?\]ERR\:  32\:  Warning in Perl code: Use of uninitialized value
  +^\[.*?\]ERR\:  24\:  Error in Perl code: Can't locate object method &quot;is&quot; via package &quot;here&quot;
  +^-\[.*?\]ERR\:  32\:  Warning in Perl code: Use of uninitialized value
  +^-\[.*?\]ERR\:  24\:  Error in Perl code: Can't locate object method &quot;is&quot; via package &quot;here&quot;
  +^-\[.*?\]ERR\:  32\:  Warning in Perl code: Use of uninitialized value
  +^-\[.*?\]ERR\:  24\:  Error in Perl code: Can't locate object method &quot;is&quot; via package &quot;here&quot;
  +^-\[.*?\]ERR\:  32\:  Warning in Perl code: Use of uninitialized value
   ^ HTML\:\:Embperl.*?<P>
   </BODY></HTML>
   
  
  
  
  1.4.6.1   +4 -4      embperl/test/cmp/opmasktrap.htm
  
  Index: opmasktrap.htm
  ===================================================================
  RCS file: /home/cvs/embperl/test/cmp/opmasktrap.htm,v
  retrieving revision 1.4
  retrieving revision 1.4.6.1
  diff -u -r1.4 -r1.4.6.1
  --- opmasktrap.htm	2000/03/28 19:14:11	1.4
  +++ opmasktrap.htm	2001/10/31 14:53:31	1.4.6.1
  @@ -2,10 +2,10 @@
   <H1>Internal Server Error</H1>
   The server encountered an internal error or misconfiguration and was unable to complete your request.<P>
   ^Please contact the server administrator\,.*?and inform them of the time the error occurred\, and anything you might have done that may have caused the error\.
  -^\[.*?\]ERR\:  32\: Line 204: Warning in Perl code\: Use of uninitialized value
  -^-\[.*?\]ERR\:  32\: Line 211: Warning in Perl code
  -^\[.*?]ERR\:  24\: Line 211: Error in Perl code\: 
  -^\[.*?\]ERR\:  24\: Line 215: Error in Perl code\: syntax error at .*? line \d*\, near \&quot\;package main\&quot\;
  +^\[.*?\]ERR\:  32\:  Warning in Perl code\: Use of uninitialized value
  +^-\[.*?\]ERR\:  32\:  Warning in Perl code
  +^\[.*?]ERR\:  24\:  Error in Perl code\: 
  +^\[.*?\]ERR\:  24\:  Error in Perl code\: syntax error at .*? line \d*\, near \&quot\;package main\&quot\;
   ^ HTML\:\:Embperl.*?<P>
   </BODY></HTML>
   
  
  
  
  1.2.6.1   +1 -1      embperl/test/cmp/unclosed.htm
  
  Index: unclosed.htm
  ===================================================================
  RCS file: /home/cvs/embperl/test/cmp/unclosed.htm,v
  retrieving revision 1.2
  retrieving revision 1.2.6.1
  diff -u -r1.2 -r1.2.6.1
  --- unclosed.htm	1999/10/05 06:02:21	1.2
  +++ unclosed.htm	2001/10/31 14:53:31	1.2.6.1
  @@ -2,6 +2,6 @@
   <H1>Internal Server Error</H1>
   The server encountered an internal error or misconfiguration and was unable to complete your request.<P>
   ^Please contact the server administrator\,.*?and inform them of the time the error occurred\, and anything you might have done that may have caused the error
  -^\[.*?\]ERR\:  46\: Line 12\: Unclosed command \[\$ if \$\] at end of file
  +^\[.*?\]ERR\:  46\: unclosed.htm\(12\): Unclosed command \[\$ if \$\] at end of file
   ^ HTML\:\:Embperl.*?<P>
   </BODY></HTML>
  
  
  
  1.5.6.1   +5 -5      embperl/test/cmp/varerr.htm
  
  Index: varerr.htm
  ===================================================================
  RCS file: /home/cvs/embperl/test/cmp/varerr.htm,v
  retrieving revision 1.5
  retrieving revision 1.5.6.1
  diff -u -r1.5 -r1.5.6.1
  --- varerr.htm	2000/03/28 19:46:07	1.5
  +++ varerr.htm	2001/10/31 14:53:31	1.5.6.1
  @@ -2,11 +2,11 @@
   <H1>Internal Server Error</H1>
   The server encountered an internal error or misconfiguration and was unable to complete your request.<P>
   ^Please contact the server administrator\,.*?and inform them of the time the error occurred\, and anything you might have done that may have caused the error\.
  -^\[.*?\]ERR\:  32\: Line 16: Warning in Perl code\: Use of uninitialized value
  -^\[.*?\]ERR\:  32\: Line 17: Warning in Perl code\: Use of uninitialized value
  -^\[.*?\]ERR\:  32\: Line 18: Warning in Perl code\: Use of uninitialized value
  -^\[.*?\]ERR\:  (32\: Line 19: Warning|24\: Line 19: Error) in Perl code\: Global symbol \&quot\;\$?d\&quot\; requires explicit package name at.*?
  -^\[.*?\]ERR\:  (32\: Line 20: Warning|24\: Line 20: Error) in Perl code\: Global symbol \&quot\;\$?e\&quot\; requires explicit package name at.*?
  +^\[.*?\]ERR\:  32\:  Warning in Perl code\: Use of uninitialized value
  +^\[.*?\]ERR\:  32\:  Warning in Perl code\: Use of uninitialized value
  +^\[.*?\]ERR\:  32\:  Warning in Perl code\: Use of uninitialized value
  +^\[.*?\]ERR\:  (32\:  Warning|24\:  Error) in Perl code\: Global symbol \&quot\;\$?d\&quot\; requires explicit package name at.*?
  +^\[.*?\]ERR\:  (32\:  Warning|24\:  Error) in Perl code\: Global symbol \&quot\;\$?e\&quot\; requires explicit package name at.*?
   ^ HTML\:\:Embperl.*?<P>
   </BODY></HTML>
   
  
  
  
  1.1.6.1   +9 -9      embperl/test/cmp/varerr.htm56
  
  Index: varerr.htm56
  ===================================================================
  RCS file: /home/cvs/embperl/test/cmp/varerr.htm56,v
  retrieving revision 1.1
  retrieving revision 1.1.6.1
  diff -u -r1.1 -r1.1.6.1
  --- varerr.htm56	2000/03/29 07:39:12	1.1
  +++ varerr.htm56	2001/10/31 14:53:31	1.1.6.1
  @@ -2,16 +2,16 @@
   <H1>Internal Server Error</H1>
   The server encountered an internal error or misconfiguration and was unable to complete your request.<P>
   ^Please contact the server administrator\,.*?and inform them of the time the error occurred\, and anything you might have done that may have caused the error\.
  -^\[.*?\]ERR\:  32\: Line 16: Warning in Perl code\: Use of uninitialized value
  -^\[.*?\]ERR\:  32\: Line 17: Warning in Perl code\: Use of uninitialized value
  -^\[.*?\]ERR\:  32\: Line 18: Warning in Perl code\: Use of uninitialized value
  -^\[.*?\]ERR\:  (32\: Line 19: Warning|24\: Line 19: Error) in Perl code\: Global symbol \&quot\;\$?d\&quot\; requires explicit package name at.*?
  -^\[.*?\]ERR\:  (32\: Line 20: Warning|24\: Line 20: Error) in Perl code\: Global symbol \&quot\;\$?e\&quot\; requires explicit package name at.*?
  -^\[.*?]ERR\:  24\: Line 42: Error in Perl code: Global symbol \&quot\;\$e\&quot\; requires explicit package name at
  -^\[.*?]ERR\:  24\: Line 43: Error in Perl code: Global symbol \&quot\;\$d\&quot\; requires explicit package name at
  +^\[.*?\]ERR\:  32\:  Warning in Perl code\: Use of uninitialized value
  +^\[.*?\]ERR\:  32\:  Warning in Perl code\: Use of uninitialized value
  +^\[.*?\]ERR\:  32\:  Warning in Perl code\: Use of uninitialized value
  +^\[.*?\]ERR\:  (32\:  Warning|24\:  Error) in Perl code\: Global symbol \&quot\;\$?d\&quot\; requires explicit package name at.*?
  +^\[.*?\]ERR\:  (32\:  Warning|24\:  Error) in Perl code\: Global symbol \&quot\;\$?e\&quot\; requires explicit package name at.*?
  +^\[.*?]ERR\:  24\:  Error in Perl code: Global symbol \&quot\;\$e\&quot\; requires explicit package name at
  +^\[.*?]ERR\:  24\:  Error in Perl code: Global symbol \&quot\;\$d\&quot\; requires explicit package name at
   ^<br>&nbsp;&nbsp;&nbsp;&nbsp;Global symbol &quot;\$e&quot; requires explicit package name at
  -^\[.*?]ERR\:  24\: Line 50: Error in Perl code: Global symbol \&quot\;\$d\&quot\; requires explicit package name at
  -^\[.*?]ERR\:  24\: Line 51: Error in Perl code: Global symbol \&quot\;\$e\&quot\; requires explicit package name at
  +^\[.*?]ERR\:  24\:  Error in Perl code: Global symbol \&quot\;\$d\&quot\; requires explicit package name at
  +^\[.*?]ERR\:  24\:  Error in Perl code: Global symbol \&quot\;\$e\&quot\; requires explicit package name at
   ^ HTML\:\:Embperl.*?<P>
   </BODY></HTML>
   
  
  
  
  No                   revision
  
  
  No                   revision
  
  
  1.1.2.6   +6 -6      embperl/test/cmp2/Attic/error.htm
  
  Index: error.htm
  ===================================================================
  RCS file: /home/cvs/embperl/test/cmp2/Attic/error.htm,v
  retrieving revision 1.1.2.5
  retrieving revision 1.1.2.6
  diff -u -r1.1.2.5 -r1.1.2.6
  --- error.htm	2001/10/28 19:29:53	1.1.2.5
  +++ error.htm	2001/10/31 14:53:32	1.1.2.6
  @@ -2,18 +2,18 @@
   <H1>Internal Server Error</H1>
   The server encountered an internal error or misconfiguration and was unable to complete your request.<P>
   ^Please contact the server administrator\,.*?and inform them of the time the error occurred\, and anything you might have done that may have caused the error
  -^^\[.*?\]ERR:  32: Line \d+: Warning in Perl code: Unquoted string &quot;qqqqqqqqqqqqqq&quot; may clash with future reserved word at .*?error.htm line
  -^-\[.*?\]ERR:  32: Line \d+: Warning in Perl code: Use of uninitialized value at .*?error.htm line \d+.<p>
  -^^\[.*?\]ERR:  32: Line \d+: Warning in Perl code: Bareword found where operator expected at .*?error.htm line \d+, near &quot;\$error is&quot;<p>
  -^^\[.*?\]ERR:  32: Line \d+: Warning in Perl code: 	\(Missing operator before is\?\)<p>
  -^\[.*?\]ERR:  24: Line \d+: Error in Perl code: syntax error at .*?error.htm line \d+, at EOF
  +^^\[.*?\]ERR:  32:  Warning in Perl code: Unquoted string &quot;qqqqqqqqqqqqqq&quot; may clash with future reserved word at .*?error.htm line
  +^-\[.*?\]ERR:  32:  Warning in Perl code: Use of uninitialized value at .*?error.htm line \d+.<p>
  +^^\[.*?\]ERR:  32:  Warning in Perl code: Bareword found where operator expected at .*?error.htm line \d+, near &quot;\$error is&quot;<p>
  +^^\[.*?\]ERR:  32:  Warning in Perl code: 	\(Missing operator before is\?\)<p>
  +^\[.*?\]ERR:  24:  Error in Perl code: syntax error at .*?error.htm line \d+, at EOF
   ^<br>&nbsp;&nbsp;&nbsp;&nbsp;syntax error at .*?error.htm line \d+, 
   ^<br>&nbsp;&nbsp;&nbsp;&nbsp;syntax error at .*?error.htm line \d+, near &quot;\$error is here &quot;
   ^<br>&nbsp;&nbsp;&nbsp;&nbsp;syntax error at .*?error.htm line \d+, near &quot;
   ^<br>&nbsp;&nbsp;&nbsp;&nbsp;                                
   ^-<br>&nbsp;&nbsp;&nbsp;&nbsp;                                
   ^-<br>&nbsp;&nbsp;&nbsp;&nbsp;}
  -^\[.*?\]ERR:  24: Line \d+: Error in Perl code: <p>
  +^\[.*?\]ERR:  24: error.htm\(1\): Error in Perl code: <p>
   ^ HTML\:\:Embperl.*?<P>
   </BODY></HTML>
   
  
  
  
  1.1.2.3   +1 -1      embperl/test/cmp2/Attic/errormismatch.htm
  
  Index: errormismatch.htm
  ===================================================================
  RCS file: /home/cvs/embperl/test/cmp2/Attic/errormismatch.htm,v
  retrieving revision 1.1.2.2
  retrieving revision 1.1.2.3
  diff -u -r1.1.2.2 -r1.1.2.3
  --- errormismatch.htm	2000/12/18 11:38:37	1.1.2.2
  +++ errormismatch.htm	2001/10/31 14:53:32	1.1.2.3
  @@ -2,7 +2,7 @@
   <H1>Internal Server Error</H1>
   The server encountered an internal error or misconfiguration and was unable to complete your request.<P>
   ^Please contact the server administrator\,.*?and inform them of the time the error occurred\, and anything you might have done that may have caused the error
  -^\[.*?\]ERR:  49: Line (13|0|1): Endtag '\/tr' doesn't match starttag 'table'<p>
  +^\[.*?\]ERR:  49: errormismatch.htm\((13|0|1)\): Endtag '\/tr' doesn't match starttag 'table'<p>
   ^.*?HTML\:\:Embperl.*?<P>
   </BODY></HTML>
   
  
  
  
  1.1.2.3   +1 -1      embperl/test/cmp2/Attic/errormismatchcmd.htm
  
  Index: errormismatchcmd.htm
  ===================================================================
  RCS file: /home/cvs/embperl/test/cmp2/Attic/errormismatchcmd.htm,v
  retrieving revision 1.1.2.2
  retrieving revision 1.1.2.3
  diff -u -r1.1.2.2 -r1.1.2.3
  --- errormismatchcmd.htm	2000/12/18 11:38:38	1.1.2.2
  +++ errormismatchcmd.htm	2001/10/31 14:53:32	1.1.2.3
  @@ -2,7 +2,7 @@
   <H1>Internal Server Error</H1>
   The server encountered an internal error or misconfiguration and was unable to complete your request.<P>
   ^Please contact the server administrator\,.*?and inform them of the time the error occurred\, and anything you might have done that may have caused the error
  -^\[.*?\]ERR:  49: Line (16|0|1): Endtag 'endforeach' doesn't match starttag ''if', starttag should be 'foreach''<p>
  +^\[.*?\]ERR:  49: errormismatchcmd.htm\((16|0|1)\): Endtag 'endforeach' doesn't match starttag ''if', starttag should be 'foreach' or there is a 'endif' missing'<p>
   ^.*?HTML\:\:Embperl.*?<P>
   </BODY></HTML>
   
  
  
  
  1.1.2.3   +1 -1      embperl/test/cmp2/Attic/unclosed.htm
  
  Index: unclosed.htm
  ===================================================================
  RCS file: /home/cvs/embperl/test/cmp2/Attic/unclosed.htm,v
  retrieving revision 1.1.2.2
  retrieving revision 1.1.2.3
  diff -u -r1.1.2.2 -r1.1.2.3
  --- unclosed.htm	2000/12/18 11:38:40	1.1.2.2
  +++ unclosed.htm	2001/10/31 14:53:32	1.1.2.3
  @@ -2,6 +2,6 @@
   <H1>Internal Server Error</H1>
   The server encountered an internal error or misconfiguration and was unable to complete your request.<P>
   ^Please contact the server administrator\,.*?and inform them of the time the error occurred\, and anything you might have done that may have caused the error
  -^\[.*?\]ERR\:  49\: Line (0|1): Endtag 'Document' doesn't match starttag ''if', starttag should be 'Document''<p>
  +^\[.*?\]ERR\:  49\: unclosed.htm: Endtag 'Document' doesn't match starttag ''if', starttag should be 'Document' or there is a 'endif' missing'<p>
   ^ HTML\:\:Embperl.*?<P>
   </BODY></HTML>
  
  
  
  1.1.2.2   +2 -2      embperl/test/cmp2/Attic/varerr.htm
  
  Index: varerr.htm
  ===================================================================
  RCS file: /home/cvs/embperl/test/cmp2/Attic/varerr.htm,v
  retrieving revision 1.1.2.1
  retrieving revision 1.1.2.2
  diff -u -r1.1.2.1 -r1.1.2.2
  --- varerr.htm	2000/09/13 08:38:27	1.1.2.1
  +++ varerr.htm	2001/10/31 14:53:32	1.1.2.2
  @@ -2,8 +2,8 @@
   <H1>Internal Server Error</H1>
   The server encountered an internal error or misconfiguration and was unable to complete your request.<P>
   ^Please contact the server administrator\,.*?and inform them of the time the error occurred\, and anything you might have done that may have caused the error\.
  -^^\[.*?\]ERR\:  (32\: Line \d+: Warning|24\: Line \d+: Error) in Perl code\: Global symbol \&quot\;\$?d\&quot\; requires explicit package name at.*?
  -^\[.*?\]ERR\:  (32\: Line \d+: Warning|24\: Line \d+: Error) in Perl code\: Global symbol \&quot\;\$?e\&quot\; requires explicit package name at.*?
  +^^\[.*?\]ERR\:  (32\:  Warning|24\: Line \d+: Error) in Perl code\: Global symbol \&quot\;\$?d\&quot\; requires explicit package name at.*?
  +^\[.*?\]ERR\:  (32\:  Warning|24\: Line \d+: Error) in Perl code\: Global symbol \&quot\;\$?e\&quot\; requires explicit package name at.*?
   ^ HTML\:\:Embperl.*?<P>
   </BODY></HTML>
   
  
  
  
  1.1.2.2   +19 -10    embperl/test/cmp2/Attic/varerr.htm56
  
  Index: varerr.htm56
  ===================================================================
  RCS file: /home/cvs/embperl/test/cmp2/Attic/varerr.htm56,v
  retrieving revision 1.1.2.1
  retrieving revision 1.1.2.2
  diff -u -r1.1.2.1 -r1.1.2.2
  --- varerr.htm56	2001/03/29 05:28:45	1.1.2.1
  +++ varerr.htm56	2001/10/31 14:53:32	1.1.2.2
  @@ -1,15 +1,24 @@
  -<HTML><HEAD><TITLE>Embperl Error</TITLE></HEAD><BODY bgcolor="#FFFFFF">
  -<H1>Internal Server Error</H1>
  -The server encountered an internal error or misconfiguration and was unable to complete your request.<P>
  -^Please contact the server administrator\,.*?and inform them of the time the error occurred\, and anything you might have done that may have caused the error\.
  -^\[.*?\]ERR\:  24\: Line 1\: Error in Perl code\: Global symbol &quot;\$d&quot; requires explicit package name at 
  +<HTML><HEAD><TITLE>Embperl Error</TITLE></HEAD><BODY bgcolor="#FFFFFF">
  +
  +<H1>Internal Server Error</H1>
  +
  +The server encountered an internal error or misconfiguration and was unable to complete your request.<P>
  +
  +^Please contact the server administrator\,.*?and inform them of the time the error occurred\, and anything you might have done that may have caused the error\.
  +
  +^\[.*?\]ERR\:  24\:  Error in Perl code\: Global symbol &quot;\$d&quot; requires explicit package name at 
   ^<br>&nbsp;&nbsp;&nbsp;&nbsp;Global symbol &quot;\$e&quot; requires explicit package name at 
   ^<br>&nbsp;&nbsp;&nbsp;&nbsp;Global symbol &quot;\$e&quot; requires explicit package name at 
   ^<br>&nbsp;&nbsp;&nbsp;&nbsp;Global symbol &quot;\$d&quot; requires explicit package name at 
   ^<br>&nbsp;&nbsp;&nbsp;&nbsp;Global symbol &quot;\$e&quot; requires explicit package name at 
   ^<br>&nbsp;&nbsp;&nbsp;&nbsp;Global symbol &quot;\$d&quot; requires explicit package name at 
  -^<br>&nbsp;&nbsp;&nbsp;&nbsp;Global symbol &quot;\$e&quot; requires explicit package name at 
  -^\[.*?\]ERR\:  24\: Line 1\: Error in Perl code\: 
  -^ HTML\:\:Embperl.*?<P>
  -</BODY></HTML>
  -
  +^<br>&nbsp;&nbsp;&nbsp;&nbsp;Global symbol &quot;\$e&quot; requires explicit package name at 
  +
  +^\[.*?\]ERR\:  24\: varerr.htm\(1\): Error in Perl code\: 
  +
  +^ HTML\:\:Embperl.*?<P>
  +
  +</BODY></HTML>
  +
  +
  +
  
  
  

---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org