richter 01/03/26 22:42:11
Modified: . Tag: Embperl2c epmain.c test.pl
Log:
Embperl 2 - fix tests
Revision Changes Path
No revision
No revision
1.75.4.27 +1 -1 embperl/epmain.c
Index: epmain.c
===================================================================
RCS file: /home/cvs/embperl/epmain.c,v
retrieving revision 1.75.4.26
retrieving revision 1.75.4.27
diff -u -r1.75.4.26 -r1.75.4.27
--- epmain.c 2001/03/27 05:56:10 1.75.4.26
+++ epmain.c 2001/03/27 06:42:10 1.75.4.27
@@ -1888,7 +1888,7 @@
hv_clear (f -> pCacheHash) ;
#ifdef EP2
- UndefSub (r, f -> sCurrPackage, EPMAINSUB) ;
+ UndefSub (r, EPMAINSUB, f -> sCurrPackage) ;
#endif
if (r -> bDebug)
lprintf (r, "[%d]MEM: Reload %s in %s\n", r -> nPid, sSourcefile,
f -> sCurrPackage) ;
1.70.4.36 +6 -2 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.70.4.35
retrieving revision 1.70.4.36
diff -u -r1.70.4.35 -r1.70.4.36
--- test.pl 2001/03/23 13:51:44 1.70.4.35
+++ test.pl 2001/03/27 06:42:10 1.70.4.36
@@ -277,7 +277,9 @@
'offline' => 0,
'version' => 1,
},
- 'div.htm' => { },
+ 'div.htm' => {
+ 'repeat' => 2,
+ },
'taint.htm' => {
'offline' => 0,
'cgi' => 0,
@@ -1273,6 +1275,8 @@
#
#############
+ $ENV{EMBPERL_EP1COMPAT} = 0 ;
+
if ($err == 0)
{
print "\nTesting Execute function...\n\n" ;
@@ -1422,7 +1426,7 @@
}) ;
$t_exec += HTML::Embperl::Clock () - $t1 ;
- $err = CheckError ($EP2?7:8) if ($err == 0) ;
+ $err = CheckError ($EP2?6:8) if ($err == 0) ;
if (@errors != ($EP2?2:12))
{
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
