richter 2002/10/08 23:46:16
Modified: . Tag: Embperl2c Changes.pod epcomp.c epinit.c
epnames.h eppriv.h
test/cmp Tag: Embperl2c escape.htm includeerr1.htm
includeerr2.htm includeerrbt.htm
test/cmp2 Tag: Embperl2c error.htm errormismatch.htm
errormismatchcmd.htm unclosed.htm varerr.htm
varerr.htm56
Log:
- Fixed a initialisation bug which caused under special conditions a segfault
when compiling a select tag.
- Replaced PL_sv_undef with ep_sv_undef (which is a copy of PL_sv_undef),
because storing PL_sv_undef in a Perl 5.8.0 hash is treated as a placeholder
and doesn't work as before.
Revision Changes Path
No revision
No revision
1.129.4.95 +7 -0 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.129.4.94
retrieving revision 1.129.4.95
diff -u -r1.129.4.94 -r1.129.4.95
--- Changes.pod 8 Oct 2002 20:11:40 -0000 1.129.4.94
+++ Changes.pod 9 Oct 2002 06:46:14 -0000 1.129.4.95
@@ -24,6 +24,13 @@
- Added 'same' validation to check if two fileds have the same input enterd
- Fix memory leak. Patch from Joshua Chamas.
- Use MP_AP_PREFIX as source for APache 2. Patch from Paul Dyer.
+ - Fixed a initialisation bug which caused under special conditions a segfault
+ when compiling a select tag.
+ - Fixed compiler warnings and errors when compiling with Perl 5.8.0.
+ - Replaced PL_sv_undef with ep_sv_undef (which is a copy of PL_sv_undef),
+ because storing PL_sv_undef in a Perl 5.8.0 hash is treated as a placeholder
+ and doesn't work as before.
+
=head1 2.0b8 (BETA) 25. Juni 2002
1.4.2.98 +3 -2 embperl/Attic/epcomp.c
Index: epcomp.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epcomp.c,v
retrieving revision 1.4.2.97
retrieving revision 1.4.2.98
diff -u -r1.4.2.97 -r1.4.2.98
--- epcomp.c 28 May 2002 06:56:03 -0000 1.4.2.97
+++ epcomp.c 9 Oct 2002 06:46:14 -0000 1.4.2.98
@@ -75,7 +75,7 @@
- ArrayNew (a, &pInfo -> pEmbperlCmds, 256, sizeof (struct tEmbperlCmd)) ;
+ ArrayNewZero (a, &pInfo -> pEmbperlCmds, 256, sizeof (struct tEmbperlCmd)) ;
ArraySet (a, &pInfo -> pEmbperlCmds, 0) ;
pInfo -> nMaxEmbperlCmd = 1 ;
*ppInfo = pInfo ;
@@ -137,6 +137,7 @@
pNewCmd = malloc (sizeof (*pNewCmd)) ;
pCmd -> pNext = pNewCmd ;
pCmd = pNewCmd ;
+ memset (pCmd, 0, sizeof(*pCmd)) ;
}
pCmd -> bValid = nTagSet ;
1.1.2.60 +7 -1 embperl/Attic/epinit.c
Index: epinit.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epinit.c,v
retrieving revision 1.1.2.59
retrieving revision 1.1.2.60
diff -u -r1.1.2.59 -r1.1.2.60
--- epinit.c 18 Sep 2002 09:33:26 -0000 1.1.2.59
+++ epinit.c 9 Oct 2002 06:46:14 -0000 1.1.2.60
@@ -22,6 +22,9 @@
#include "epdefault.c"
+SV ep_sv_undef ; /* we need our own undef value, because when
+ storing a PL_sv_undef with Perl 5.8.0 in a hash
+ Perl takes it as a placeholder and pretents it isn't there
:-( */
#ifndef PERL_IMPLICIT_CONTEXT
@@ -672,6 +675,9 @@
tThreadData * pThread ;
tApp * pApp ;
tApacheDirConfig * pApacheCfg = NULL ;
+
+
+ memcpy (&ep_sv_undef, &PL_sv_undef, sizeof (PL_sv_undef)) ;
#ifdef APACHE
if (pApacheSrvSV && SvROK (pApacheSrvSV))
1.19.4.25 +7 -4 embperl/epnames.h
Index: epnames.h
===================================================================
RCS file: /home/cvs/embperl/epnames.h,v
retrieving revision 1.19.4.24
retrieving revision 1.19.4.25
diff -u -r1.19.4.24 -r1.19.4.25
--- epnames.h 24 May 2002 07:25:35 -0000 1.19.4.24
+++ epnames.h 9 Oct 2002 06:46:14 -0000 1.19.4.25
@@ -222,6 +222,12 @@
#define pCachesToRelease EMBPERL2_pCachesToRelease
#define pProviders EMBPERL2_pProviders
+
+#ifdef sv_undef
+#undef sv_undef
+#endif
+#define sv_undef ep_sv_undef
+
#ifndef PERL_VERSION
#include <patchlevel.h>
@@ -330,9 +336,6 @@
#ifndef na
#define na PL_na
-#endif
-#ifndef sv_undef
-#define sv_undef PL_sv_undef
#endif
#ifndef tainted
#define tainted PL_tainted
1.1.2.20 +4 -1 embperl/Attic/eppriv.h
Index: eppriv.h
===================================================================
RCS file: /home/cvs/embperl/Attic/eppriv.h,v
retrieving revision 1.1.2.19
retrieving revision 1.1.2.20
diff -u -r1.1.2.19 -r1.1.2.20
--- eppriv.h 27 May 2002 17:53:13 -0000 1.1.2.19
+++ eppriv.h 9 Oct 2002 06:46:15 -0000 1.1.2.20
@@ -51,6 +51,9 @@
struct tCacheItem ;
+extern SV ep_sv_undef ;
+
+
/*-----------------------------------------------------------------*/
/* */
/* cache Options */
No revision
No revision
1.19.4.10 +12 -12 embperl/test/cmp/escape.htm
Index: escape.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/escape.htm,v
retrieving revision 1.19.4.9
retrieving revision 1.19.4.10
diff -u -r1.19.4.9 -r1.19.4.10
--- escape.htm 10 Apr 2002 06:00:46 -0000 1.19.4.9
+++ escape.htm 9 Oct 2002 06:46:15 -0000 1.19.4.10
@@ -65,7 +65,7 @@
2
Now lets look what we are getting from this:<BR>
-(this%20is%20the%20value%20in%20$a)
(this%20is%20the%20value%20in%20$a)%20������%3F%3F%3F%3C%26%2B%20%20<BR>
+(this%20is%20the%20value%20in%20%24a)
(this%20is%20the%20value%20in%20%24a)%20%E4%F6%FC%E4%F6%FC%3F%3F%3F%3C%26%2B%20%20<BR>
What is the EscMode? 2
Now a Url: <A
HREF="http://localhost/tests?id=abcdefghijklmnopqrstuvwxyz&text=This%20is%20a%20text%20%3F%20%26%20%2B%20-%20%2521";>Here
it goes</A>
@@ -97,21 +97,21 @@
Now we localy set $escmode:<BR>
(this is the value in $a) ������???<&+ \<a><BR>
(this is the value in $a) äöüäöü???<&+
<a><BR>
-(this%20is%20the%20value%20in%20$a)%20������%3F%3F%3F%3C%26%2B%20%20%20%20<a%3E<BR>
+(this%20is%20the%20value%20in%20%24a)%20%E4%F6%FC%E4%F6%FC%3F%3F%3F%3C%26%2B%20%20%20%20<a%3E<BR>
(this is the value in $a) äöüäöü???<&+
<a><BR>
(this is the value in $a) ������???<&+ \<a><BR>
(this is the value in $a) äöüäöü???<&+
\<a><BR>
-(this%20is%20the%20value%20in%20$a)%20������%3F%3F%3F%3C%26%2B%20%20%20%20\%3Ca%3E<BR>
+(this%20is%20the%20value%20in%20%24a)%20%E4%F6%FC%E4%F6%FC%3F%3F%3F%3C%26%2B%20%20%20%20%5C%3Ca%3E<BR>
(this is the value in $a) äöüäöü???<&+
\<a><BR>
Same without local:
(this is the value in $a) ������???<&+ \<a><BR>
(this is the value in $a) äöüäöü???<&+
<a><BR>
-(this%20is%20the%20value%20in%20$a)%20������%3F%3F%3F%3C%26%2B%20%20%20%20<a%3E<BR>
+(this%20is%20the%20value%20in%20%24a)%20%E4%F6%FC%E4%F6%FC%3F%3F%3F%3C%26%2B%20%20%20%20<a%3E<BR>
(this is the value in $a) äöüäöü???<&+
<a><BR>
(this is the value in $a) ������???<&+ \<a><BR>
(this is the value in $a) äöüäöü???<&+
\<a><BR>
-(this%20is%20the%20value%20in%20$a)%20������%3F%3F%3F%3C%26%2B%20%20%20%20\%3Ca%3E<BR>
+(this%20is%20the%20value%20in%20%24a)%20%E4%F6%FC%E4%F6%FC%3F%3F%3F%3C%26%2B%20%20%20%20%5C%3Ca%3E<BR>
(this is the value in $a) äöüäöü???<&+
\<a><BR>
@@ -122,12 +122,12 @@
&#129;&#130;<BR>
0
-^<A
HREF=('http://host/script\?name=My%20Name%20���'|"http://host/script\?name=My%20Name%20���";)>
+^<A
HREF=('http://host/script\?name=My%20Name%20%F6%E4%FC'|"http://host/script\?name=My%20Name%20%F6%E4%FC";)>
-^<A
HREF=('http://host/script\?name=My%20Name%20���'|"http://host/script\?name=My%20Name%20���";)>
+^<A
HREF=('http://host/script\?name=My%20Name%20%F6%E4%FC'|"http://host/script\?name=My%20Name%20%F6%E4%FC";)>
0
-^<A
HREF=('http://host/script\?name=My%20Name%20���'|"http://host/script\?name=My%20Name%20���";)>
+^<A
HREF=('http://host/script\?name=My%20Name%20%F6%E4%FC'|"http://host/script\?name=My%20Name%20%F6%E4%FC";)>
^<A HREF=('http://host/script\?name=My Name ���'|"http://host/script\?name=My Name
���")>
@@ -173,11 +173,11 @@
0: (this is the value in $a) ������???<&+
1: (this is the value in $a) äöüäöü???<&+
-2: (this%20is%20the%20value%20in%20$a)%20������%3F%3F%3F%3C%26%2B%20%20
+2:
(this%20is%20the%20value%20in%20%24a)%20%E4%F6%FC%E4%F6%FC%3F%3F%3F%3C%26%2B%20%20
3: (this is the value in $a) äöüäöü???<&+
4: (this is the value in $a) ������???<&+
5: (this is the value in $a) äöüäöü???<&+
-6: (this%20is%20the%20value%20in%20$a)%20������%3F%3F%3F%3C%26%2B%20%20
+6:
(this%20is%20the%20value%20in%20%24a)%20%E4%F6%FC%E4%F6%FC%3F%3F%3F%3C%26%2B%20%20
7: (this is the value in $a) äöüäöü???<&+
print OUT:
@@ -189,9 +189,9 @@
0: �ric
7: éric
0: �ric
-<a href="0?!Table=interface,router&$where=interface.router_id=router.id">
+^<a
href="0\?(!Table=interface,router&\$where=interface.router_id=router.id|\$where=interface.router_id=router.id&!Table=interface,router)">
-<a href="7?!Table=interface,router&$where=interface.router_id%3Drouter.id">
+^<a
href="7\?(%3DTable=interface,router&%24where=interface.router_id%3Drouter.id|%24where=interface.router_id%3Drouter.id&!Table=interface%2Crouter)">
<P>Ok.<P>
1.2.6.8 +12 -0 embperl/test/cmp/includeerr1.htm
Index: includeerr1.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/includeerr1.htm,v
retrieving revision 1.2.6.7
retrieving revision 1.2.6.8
diff -u -r1.2.6.7 -r1.2.6.8
--- includeerr1.htm 25 Jun 2002 07:05:26 -0000 1.2.6.7
+++ includeerr1.htm 9 Oct 2002 06:46:15 -0000 1.2.6.8
@@ -2,8 +2,20 @@
<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
+<table cellspacing='2' cellpadding='5'>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
^-\[.*?\]ERR\: 32\: Warning in Perl code:
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^-</td></tr>
+^-<tr bgcolor='#eeeeee'><td>
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
^\[.*?\]ERR\: 24\: Error in Perl code: Can't locate object method "is"
via package "here"
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+</table>
+<br>
+
^Embperl
</BODY></HTML>
1.3.6.8 +83 -7 embperl/test/cmp/includeerr2.htm
Index: includeerr2.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/includeerr2.htm,v
retrieving revision 1.3.6.7
retrieving revision 1.3.6.8
diff -u -r1.3.6.7 -r1.3.6.8
--- includeerr2.htm 28 May 2002 06:56:05 -0000 1.3.6.7
+++ includeerr2.htm 9 Oct 2002 06:46:15 -0000 1.3.6.8
@@ -2,26 +2,102 @@
<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\: 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
+<table cellspacing='2' cellpadding='5'>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^-\[.*?\]ERR\: 32\: Warning in Perl code: Use of uninitialized value
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^-</td></tr>
+^-<tr bgcolor='#eeeeee'><td>
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^-\[.*?\]ERR\: 32\: Warning in Perl code: Use of uninitialized value
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^-</td></tr>
+^-<tr bgcolor='#eeeeee'><td>
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^-\[.*?\]ERR\: 32\: Warning in Perl code: Use of uninitialized value
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^-</td></tr>
+^-<tr bgcolor='#eeeeee'><td>
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^-\[.*?\]ERR\: 32\: Warning in Perl code: Use of uninitialized value
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^-</td></tr>
+^-<tr bgcolor='#eeeeee'><td>
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
^\[.*?\]ERR\: 24\: Error in Perl code: Can't locate object method "is"
via package "here"
-^-\[.*?\]ERR\: 32\: Warning in Perl code: Use of uninitialized value
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^-</td></tr>
+^-<tr bgcolor='#eeeeee'><td>
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^-\[.*?\]ERR\: 32\: Warning in Perl code: Use of uninitialized value
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^-</td></tr>
+^-<tr bgcolor='#eeeeee'><td>
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
^-\[.*?\]ERR\: 24\: Error in Perl code: Can't locate object method "is"
via package "here"
-^-\[.*?\]ERR\: 32\: Warning in Perl code: Use of uninitialized value
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^-</td></tr>
+^-<tr bgcolor='#eeeeee'><td>
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^-\[.*?\]ERR\: 32\: Warning in Perl code: Use of uninitialized value
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^-</td></tr>
+^-<tr bgcolor='#eeeeee'><td>
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
^-\[.*?\]ERR\: 24\: Error in Perl code: Can't locate object method "is"
via package "here"
-^-\[.*?\]ERR\: 32\: Warning in Perl code: Use of uninitialized value
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^-</td></tr>
+^-<tr bgcolor='#eeeeee'><td>
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^-\[.*?\]ERR\: 32\: Warning in Perl code: Use of uninitialized value
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^-</td></tr>
+^-<tr bgcolor='#eeeeee'><td>
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
^\[.*?\]ERR\: 32\: Warning in Perl code\: Unquoted string "table" may
clash with future reserved word at
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^-</td></tr>
+^-<tr bgcolor='#eeeeee'><td>
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
^\[.*?\]ERR\: 32\: Warning in Perl code\: Unquoted string "td" may
clash with future reserved word at
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^-</td></tr>
+^-<tr bgcolor='#eeeeee'><td>
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
^\[.*?\]ERR\: 32\: Warning in Perl code\:\s+\(in cleanup\) Transliteration
replacement not terminated at
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^-</td></tr>
+^-<tr bgcolor='#eeeeee'><td>
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
^\[.*?\]ERR\: 24\: Error in Perl code\: syntax error at
^\<br\> \s+\(in cleanup\) Transliteration replacement not
terminated at
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^-</td></tr>
+^-<tr bgcolor='#eeeeee'><td>
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
^\[.*?\]ERR\: 32\: Warning in Perl code\: Unquoted string "table" may
clash with future reserved word at
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^-</td></tr>
+^-<tr bgcolor='#eeeeee'><td>
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
^\[.*?\]ERR\: 32\: Warning in Perl code\: Unquoted string "td" may
clash with future reserved word at
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^-</td></tr>
+^-<tr bgcolor='#eeeeee'><td>
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
^\[.*?\]ERR\: 32\: Warning in Perl code\:\s+\(in cleanup\) Transliteration
replacement not terminated at
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^-</td></tr>
+^-<tr bgcolor='#eeeeee'><td>
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
^\[.*?\]ERR\: 24\: Error in Perl code\: syntax error at
^<br> \(in cleanup\) Transliteration replacement not
terminated at
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+</table>
+<br>
+
^Embperl
</BODY></HTML>
1.1.2.2 +9 -1 embperl/test/cmp/Attic/includeerrbt.htm
Index: includeerrbt.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/Attic/includeerrbt.htm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- includeerrbt.htm 10 Mar 2002 20:27:19 -0000 1.1.2.1
+++ includeerrbt.htm 9 Oct 2002 06:46:15 -0000 1.1.2.2
@@ -2,9 +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
+<table cellspacing='2' cellpadding='5'>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
^\[\d+\]ERR: 24: Error in Perl code: Can\'t locate object method "is"
via package "here"
^<br> \* .*?incerr.htm
-^<br> \* .*?includeerrbt.htm<p>
+^<br> \* .*?includeerrbt.htm
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+</table>
+<br>
+
^Embperl
</BODY></HTML>
No revision
No revision
1.1.2.10 +27 -3 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.9
retrieving revision 1.1.2.10
diff -u -r1.1.2.9 -r1.1.2.10
--- error.htm 25 Jun 2002 07:05:26 -0000 1.1.2.9
+++ error.htm 9 Oct 2002 06:46:15 -0000 1.1.2.10
@@ -2,10 +2,29 @@
<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
+<table cellspacing='2' cellpadding='5'>
+^^<tr bgcolor='#eeeeee'><td>
+^^<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
^^\[.*?\]ERR: 32: Warning in Perl code: Unquoted string
"qqqqqqqqqqqqqq" may clash with future reserved word
-^-\[.*?\]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 "\$error is"<p>
-^^\[.*?\]ERR: 32: Warning in Perl code: \(Missing operator before is\?\)<p>
+^^<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^^</td></tr>
+^-<tr bgcolor='#eeeeee'><td>
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^-\[.*?\]ERR: 32: Warning in Perl code: Use of uninitialized value at
.*?error.htm line \d+.
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^-</td></tr>
+^-<tr bgcolor='#eeeeee'><td>
+^-<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^^\[.*?\]ERR: 32: Warning in Perl code: Bareword found where operator expected at
.*?error.htm line \d+, near "\$error is"
+^^<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^^</td></tr>
+^^<tr bgcolor='#eeeeee'><td>
+^^<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^^\[.*?\]ERR: 32: Warning in Perl code: \(Missing operator before is\?\)
+^^<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^^</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
^\[.*?\]ERR: 24: Error in Perl code: syntax error at .*?error.htm line \d+, at EOF
^<br> syntax error at .*?error.htm line \d+,
^<br> syntax error at .*?error.htm line \d+, near
"\$error is here "
@@ -13,6 +32,11 @@
^<br>
^-<br>
^-<br> }
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+</table>
+<br>
+
^Embperl
</BODY></HTML>
1.1.2.5 +9 -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.4
retrieving revision 1.1.2.5
diff -u -r1.1.2.4 -r1.1.2.5
--- errormismatch.htm 23 Jan 2002 15:09:01 -0000 1.1.2.4
+++ errormismatch.htm 9 Oct 2002 06:46:15 -0000 1.1.2.5
@@ -2,7 +2,15 @@
<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: errormismatch.htm\((13|0|1)\): Endtag '\/tr' doesn't match
starttag 'table'<p>
+<table cellspacing='2' cellpadding='5'>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[.*?\]ERR: 49: errormismatch.htm\((13|0|1)\): Endtag '\/tr' doesn't match
starttag 'table'
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+</table>
+<br>
+
^.*?Embperl.*?<P>
</BODY></HTML>
1.1.2.5 +9 -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.4
retrieving revision 1.1.2.5
diff -u -r1.1.2.4 -r1.1.2.5
--- errormismatchcmd.htm 23 Jan 2002 15:09:01 -0000 1.1.2.4
+++ errormismatchcmd.htm 9 Oct 2002 06:46:15 -0000 1.1.2.5
@@ -2,7 +2,15 @@
<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: errormismatchcmd.htm\((16|0|1)\): Endtag 'endforeach' doesn't
match starttag ''if', starttag should be 'foreach' or there is a 'endif' missing'<p>
+<table cellspacing='2' cellpadding='5'>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[.*?\]ERR: 49: errormismatchcmd.htm\((16|0|1)\): Endtag 'endforeach' doesn't
match starttag ''if', starttag should be 'foreach' or there is a 'endif' missing'
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+</table>
+<br>
+
^.*?Embperl.*?<P>
</BODY></HTML>
1.1.2.6 +9 -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.5
retrieving revision 1.1.2.6
diff -u -r1.1.2.5 -r1.1.2.6
--- unclosed.htm 25 Jun 2002 07:05:26 -0000 1.1.2.5
+++ unclosed.htm 9 Oct 2002 06:46:15 -0000 1.1.2.6
@@ -2,6 +2,14 @@
<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\: unclosed.htm: Endtag 'Document' doesn't match starttag ''if',
starttag should be 'Document' or there is a 'endif' missing'<p>
+<table cellspacing='2' cellpadding='5'>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[.*?\]ERR\: 49\: unclosed.htm: Endtag 'Document' doesn't match starttag ''if',
starttag should be 'Document' or there is a 'endif' missing'
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+</table>
+<br>
+
^Embperl
</BODY></HTML>
1.1.2.5 +8 -0 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.4
retrieving revision 1.1.2.5
diff -u -r1.1.2.4 -r1.1.2.5
--- varerr.htm 25 Jun 2002 07:05:26 -0000 1.1.2.4
+++ varerr.htm 9 Oct 2002 06:46:15 -0000 1.1.2.5
@@ -2,8 +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\.
+<table cellspacing='2' cellpadding='5'>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
^^\[.*?\]ERR\: (32\: Warning|24\: Line \d+: Error) in Perl code\: Global symbol
\"\;\$?d\"\; requires explicit package name at.*?
^\[.*?\]ERR\: (32\: Warning|24\: Line \d+: Error) in Perl code\: Global symbol
\"\;\$?e\"\; requires explicit package name at.*?
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+</table>
+<br>
+
^Embperl
</BODY></HTML>
1.1.2.5 +8 -0 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.4
retrieving revision 1.1.2.5
diff -u -r1.1.2.4 -r1.1.2.5
--- varerr.htm56 25 Jun 2002 07:05:26 -0000 1.1.2.4
+++ varerr.htm56 9 Oct 2002 06:46:15 -0000 1.1.2.5
@@ -6,6 +6,9 @@
^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\.
+<table cellspacing='2' cellpadding='5'>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
^\[.*?\]ERR\: 24\: Error in Perl code\: Global symbol "\$d" requires
explicit package name at
^<br> Global symbol "\$e" requires explicit
package name at
^<br> Global symbol "\$e" requires explicit
package name at
@@ -13,6 +16,11 @@
^<br> Global symbol "\$e" requires explicit
package name at
^<br> Global symbol "\$d" requires explicit
package name at
^<br> Global symbol "\$e" requires explicit
package name at
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+</table>
+<br>
+
^Embperl
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
