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/05/02 07:30:16 UTC
cvs commit: embperl/test/cmp epobase.htm
richter 01/05/01 22:30:16
Modified: . Embperl.pm Embperl.xs test.pl
test/cmp epobase.htm
Log:
fix tests for win32
Revision Changes Path
1.148 +11 -5 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.147
retrieving revision 1.148
diff -u -r1.147 -r1.148
--- Embperl.pm 2001/04/27 07:40:23 1.147
+++ Embperl.pm 2001/05/02 05:30:15 1.148
@@ -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.147 2001/04/27 07:40:23 richter Exp $
+# $Id: Embperl.pm,v 1.148 2001/05/02 05:30:15 richter Exp $
#
###################################################################################
@@ -572,6 +572,12 @@
my $path = $$pathref ;
my $pathndx = $$pathndxref ;
+ if ($filename eq '')
+ {
+ logerror (rcNotFound, '<no filename>');
+ return &NOT_FOUND ;
+ }
+
if (-d $filename)
{
#logerror (rcIsDir, $filename);
@@ -1290,7 +1296,7 @@
$packfile = GVFile (*{"$package\::__ANON__"}) ;
if ($multiplicity && !$revinc{$packfile})
{
- print LOG "$packfile -> -- eval --\n" ;
+ #print LOG "$packfile -> -- eval --\n" ;
$packfile = "-- eval --" ;
}
$packfile = '-> No Perl in Source <-' if ($packfile eq ('_<' . __FILE__) || $packfile eq __FILE__) ;
@@ -1298,7 +1304,7 @@
$addcleanup -> {'CLEANUP'} = 0 ;
if ($Debugflags & dbgShowCleanup)
{
- print LOG "[$$]CUP: ***** Cleanup package: $package *****\n" ;
+ print LOG "[$$]CUP: ***** Cleanup package: $package (m=$multiplicity) *****\n" ;
print LOG "[$$]CUP: Source $packfile\n" ;
}
if (defined (&{"$package\:\:CLEANUP"}))
@@ -1323,7 +1329,7 @@
$varfile = GVFile (*ENTRY) ;
if ($multiplicity && !$revinc{$varfile})
{
- print LOG "$varfile -> -- eval --\n" ;
+ #print LOG "$varfile -> -- eval --\n" ;
$varfile = "-- eval --" ;
}
@@ -1416,7 +1422,7 @@
$varfile = GVFile (*ENTRY) ;
if ($multiplicity && !$revinc{$varfile})
{
- print LOG "$varfile -> -- eval --\n" ;
+ #print LOG "$varfile -> -- eval --\n" ;
$varfile = "-- eval --" ;
}
1.41 +4 -0 embperl/Embperl.xs
Index: Embperl.xs
===================================================================
RCS file: /home/cvs/embperl/Embperl.xs,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -r1.40 -r1.41
--- Embperl.xs 2001/04/27 06:37:53 1.40
+++ Embperl.xs 2001/05/02 05:30:15 1.41
@@ -328,12 +328,16 @@
sv_unmagic(ERRSV, 'U');
+
+#ifdef EP2
+
void
embperl_ClearSymtab(sPackage)
char * sPackage
CODE:
ClearSymtab (pCurrReq, sPackage) ;
+#endif
################################################################################
1.101 +1 -0 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.100
retrieving revision 1.101
diff -u -r1.100 -r1.101
--- test.pl 2001/05/02 04:08:57 1.100
+++ test.pl 2001/05/02 05:30:15 1.101
@@ -512,6 +512,7 @@
'EmbperlObject/epobase.htm' => {
'offline' => 0,
'cgi' => 0,
+ 'errors' => 1,
},
'SSI/ssibasic.htm' => {
'version' => 2,
1.2 +9 -15 embperl/test/cmp/epobase.htm
Index: epobase.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/epobase.htm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- epobase.htm 2001/03/27 04:26:44 1.1
+++ epobase.htm 2001/05/02 05:30:16 1.2
@@ -1,15 +1,9 @@
- <html>
- <head>
- <title>Example</title>
- </head>
- <body>
- <h1>head from foo</h1>
-
-
- <hr> Footer <hr>
-
-
-
-</body>
- </html>
-
+<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\: 32\: Line \d+\: Warning in Perl code\: Use of uninitialized value
+^\[.*?\]ERR\: 30\: Line \d+\: Not found <no filename><p>
+^\[.*?\]ERR\: 32\: Line \d+\: Warning in Perl code\: Use of uninitialized value
+^ 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