richter 01/10/31 07:14:49
Modified: . Tag: Embperl2c epmain.c
test/cmp Tag: Embperl2c epobase.htm errdoc2.htm
opmasktrap.htm.561 taint.htm
test/cmp2 Tag: Embperl2c errdoc2.htm
Log:
Embperl 2 - verbose error messages
Revision Changes Path
No revision
No revision
1.75.4.51 +9 -7 embperl/epmain.c
Index: epmain.c
===================================================================
RCS file: /home/cvs/embperl/epmain.c,v
retrieving revision 1.75.4.50
retrieving revision 1.75.4.51
diff -u -r1.75.4.50 -r1.75.4.51
--- epmain.c 2001/10/31 14:53:31 1.75.4.50
+++ epmain.c 2001/10/31 15:14:49 1.75.4.51
@@ -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.50 2001/10/31 14:53:31 richter Exp $
+# $Id: epmain.c,v 1.75.4.51 2001/10/31 15:14:49 richter Exp $
#
###################################################################################*/
@@ -160,14 +160,16 @@
p = "" ;
if (!p)
p = strrchr (r -> Buf.pFile -> sSourcefile, '/') ;
- if (!p)
- p = strrchr (r -> Buf.pFile -> sSourcefile, '\\') ;
- else
+ if (p)
p++ ;
- if (!p)
- p = r -> Buf.pFile -> sSourcefile ;
else
- p++ ;
+ {
+ p = strrchr (r -> Buf.pFile -> sSourcefile, '\\') ;
+ if (!p)
+ p = r -> Buf.pFile -> sSourcefile ;
+ else
+ p++ ;
+ }
if (r -> Buf.nSourceline)
sprintf (buf, "(%d)", r -> Buf.nSourceline) ;
pSVLine = newSVpvf ("%s%s:", p, buf) ;
No revision
No revision
1.1.2.3 +2 -2 embperl/test/cmp/epobase.htm
Index: epobase.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/epobase.htm,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -r1.1.2.2 -r1.1.2.3
--- epobase.htm 2001/04/25 14:37:14 1.1.2.2
+++ epobase.htm 2001/10/31 15:14:49 1.1.2.3
@@ -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 1\: Warning in Perl code\: Use of uninitialized value
-^\[.*?\]ERR\: 30\: Line 1\: Not found <no filename><p>
+^\[.*?\]ERR\: 32\: Warning in Perl code\: Use of uninitialized value
+^\[.*?\]ERR\: 30\: epobase.htm\(1\): Not found <no filename><p>
^ HTML\:\:Embperl.*?<P>
</BODY></HTML>
1.2.4.4 +13 -20 embperl/test/cmp/errdoc2.htm
Index: errdoc2.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/errdoc2.htm,v
retrieving revision 1.2.4.3
retrieving revision 1.2.4.4
diff -u -r1.2.4.3 -r1.2.4.4
--- errdoc2.htm 2000/10/17 12:55:48 1.2.4.3
+++ errdoc2.htm 2001/10/31 15:14:49 1.2.4.4
@@ -15,31 +15,24 @@
^There are 1(0|2|3|5) errormessages:
<table border=1>
-^ <tr><td>\[\d+\]ERR: 32: Line 13: Warning in Perl code: Use of uninitialized
value
+^ <tr><td>\[\d+\]ERR: 32: Warning in Perl code: Use of uninitialized value
-^ <tr><td>\[\d+\]ERR: 32: Line 14: Warning in Perl code: Use of uninitialized
value
+^ <tr><td>\[\d+\]ERR: 32: Warning in Perl code: Use of uninitialized value
-^ <tr><td>\[\d+\]ERR: 32: Line 15: Warning in Perl code: Use of uninitialized
value
+^ <tr><td>\[\d+\]ERR: 32: Warning in Perl code: Use of uninitialized value
-^ <tr><td>\[\d+\]ERR: 32: Line 16: Warning in Perl code: Use of uninitialized
value
+^ <tr><td>\[\d+\]ERR: 32: Warning in Perl code: Use of uninitialized value
-^ <tr><td>\[\d+\]ERR: 32: Line 17: Warning in Perl code: Use of uninitialized
value
+^ <tr><td>\[\d+\]ERR: 32: Warning in Perl code: Use of uninitialized value
-^- <tr><td>\[\d+\]ERR: 32: Line 21: Warning in Perl code: Unquoted string
"qqqqqqqqqqqqqq" may clash with future reserved word at
-^-
-^ <tr><td>\[\d+\]ERR: 24: Line 21: Error in Perl code: syntax error at
-
-^ <tr><td>\[\d+\]ERR: 24: Line 32: Error in Perl code: syntax error at
-
-^ <tr><td>\[\d+\]ERR: 24: Line 32: Error in Perl code: Can't call method
"qq2" without a package or object reference at
-
-^ <tr><td>\[\d+\]ERR: 32: Line 32: Warning in Perl code: Use of uninitialized
value
-
-^- <tr><td>\[\d+\]ERR: 32: Line 46: Warning in Perl code: Bareword found where
operator expected at
-^-
-^- <tr><td>\[\d+\]ERR: 32: Line 46: Warning in Perl code: \(Missing
operator before is\?\)</td></tr>
-^-
-^ <tr><td>\[\d+\]ERR: 24: Line 46: Error in Perl code: syntax error at
+^- <tr><td>\[\d+\]ERR: 32: Warning in Perl code: Unquoted string
"qqqqqqqqqqqqqq" may clash with future reserved word at
+^ <tr><td>\[\d+\]ERR: 24: Error in Perl code: syntax error at
+^ <tr><td>\[\d+\]ERR: 24: Error in Perl code: syntax error at
+^ <tr><td>\[\d+\]ERR: 24: Error in Perl code: Can't call method
"qq2" without a package or object reference at
+^ <tr><td>\[\d+\]ERR: 32: Warning in Perl code: Use of uninitialized value
+^- <tr><td>\[\d+\]ERR: 32: Warning in Perl code: Bareword found where operator
expected at
+^- <tr><td>\[\d+\]ERR: 32: Warning in Perl code: \(Missing operator
before is\?\)</td></tr>
+^ <tr><td>\[\d+\]ERR: 24: Error in Perl code: syntax error at
^Missing right.*?bracket at
^syntax error at
</table>
1.1.2.2 +3 -3 embperl/test/cmp/opmasktrap.htm.561
Index: opmasktrap.htm.561
===================================================================
RCS file: /home/cvs/embperl/test/cmp/opmasktrap.htm.561,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- opmasktrap.htm.561 2001/05/11 07:14:27 1.1.2.1
+++ opmasktrap.htm.561 2001/10/31 15:14:49 1.1.2.2
@@ -2,9 +2,9 @@
<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 \d+: Error in Perl code\: \(in cleanup\) iteration
finalizer trapped by operation mask
+^\[.*?\]ERR\: 32\: Warning in Perl code\: Use of uninitialized value
+^-\[.*?\]ERR\: 32\: Warning in Perl code
+^\[.*?\]ERR\: 24\: Error in Perl code\: \(in cleanup\) iteration finalizer
trapped by operation mask
^ HTML\:\:Embperl.*?<P>
</BODY></HTML>
1.2.6.2 +2 -2 embperl/test/cmp/taint.htm
Index: taint.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/taint.htm,v
retrieving revision 1.2.6.1
retrieving revision 1.2.6.2
diff -u -r1.2.6.1 -r1.2.6.2
--- taint.htm 2000/09/14 06:10:06 1.2.6.1
+++ taint.htm 2001/10/31 15:14:49 1.2.6.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\: 24\: Line \d+\: Error in Perl code\: Insecure \$ENV\{PATH\} while
running with \-T switch
-^-\[.*?\]ERR\: 32\: Line \d+\: Warning in Perl code\: Use of uninitialized value
+^\[.*?\]ERR\: 24\: Error in Perl code\: Insecure \$ENV\{PATH\} while running with
\-T switch
+^-\[.*?\]ERR\: 32\: Warning in Perl code\: Use of uninitialized value
^ HTML::Embperl .*?<P>
</BODY></HTML>
No revision
No revision
1.1.2.3 +5 -5 embperl/test/cmp2/Attic/errdoc2.htm
Index: errdoc2.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp2/Attic/errdoc2.htm,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -r1.1.2.2 -r1.1.2.3
--- errdoc2.htm 2001/03/27 07:09:30 1.1.2.2
+++ errdoc2.htm 2001/10/31 15:14:49 1.1.2.3
@@ -15,19 +15,19 @@
^There are 5 errormessages:
<table border=1>
-^- <tr><td>\[\d+\]ERR: 32: Line 1: Warning in Perl code: Unquoted string
"qqqqqqqqqqqqqq" may clash with future reserved word at
+^- <tr><td>\[\d+\]ERR: 32: Warning in Perl code: Unquoted string
"qqqqqqqqqqqqqq" may clash with future reserved word at
-^- <tr><td>\[\d+\]ERR: 32: Line 1: Warning in Perl code: Bareword found where
operator expected at
+^- <tr><td>\[\d+\]ERR: 32: Warning in Perl code: Bareword found where operator
expected at
^-
-^- <tr><td>\[\d+\]ERR: 32: Line 1: Warning in Perl code: \(Missing operator
before is\?\)</td></tr>
+^- <tr><td>\[\d+\]ERR: 32: Warning in Perl code: \(Missing operator
before is\?\)</td></tr>
^-
-^ <tr><td>\[\d+\]ERR: 24: Line 1: Error in Perl code: syntax error at
+^ <tr><td>\[\d+\]ERR: 24: Error in Perl code: syntax error at
^syntax error at
^syntax error at
^syntax error at
^}"</td></tr>
^-
-^ <tr><td>\[\d+\]ERR: 24: Line 1: Error in Perl code:
+^ <tr><td>\[\d+\]ERR: 24: errdoc2.htm\(1\): Error in Perl code:
</table>
</body>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
