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/03/28 21:16:09 UTC
cvs commit: embperl/test/conf startup.pl startup_dso.pl
richter 01/03/28 11:16:09
Modified: . Tag: Embperl2c TODO epmain.c epnames.h test.pl
test/conf Tag: Embperl2c startup.pl startup_dso.pl
Log:
Embperl 2 - tests
Revision Changes Path
No revision
No revision
1.97.4.2 +2 -0 embperl/TODO
Index: TODO
===================================================================
RCS file: /home/cvs/embperl/TODO,v
retrieving revision 1.97.4.1
retrieving revision 1.97.4.2
diff -u -r1.97.4.1 -r1.97.4.2
--- TODO 2000/11/03 12:04:14 1.97.4.1
+++ TODO 2001/03/28 19:16:03 1.97.4.2
@@ -137,6 +137,8 @@
- Execute / [$sub $] from [+ +]
+- rawinput/include.htm mem: 5,6,7
+
Docs 2.0
--------
1.75.4.29 +10 -10 embperl/epmain.c
Index: epmain.c
===================================================================
RCS file: /home/cvs/embperl/epmain.c,v
retrieving revision 1.75.4.28
retrieving revision 1.75.4.29
diff -u -r1.75.4.28 -r1.75.4.29
--- epmain.c 2001/03/27 11:52:09 1.75.4.28
+++ epmain.c 2001/03/28 19:16:03 1.75.4.29
@@ -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.28 2001/03/27 11:52:09 richter Exp $
+# $Id: epmain.c,v 1.75.4.29 2001/03/28 19:16:03 richter Exp $
#
###################################################################################*/
@@ -539,8 +539,8 @@
int len = 0 ;
char sLine [1024] ;
SV * pSVE ;
- int savewarn = PL_dowarn ;
- PL_dowarn = 0 ; /* no warnings here */
+ int savewarn = dowarn ;
+ dowarn = 0 ; /* no warnings here */
EPENTRY (GetInputData_CGIProcess) ;
@@ -552,7 +552,7 @@
if ((rc = OpenInput (r, sCmdFifo)) != ok)
{
- PL_dowarn = savewarn ;
+ dowarn = savewarn ;
return rc ;
}
@@ -582,7 +582,7 @@
if (hv_store (r -> pEnvHash, sLine, strlen (sLine), pSVE, 0) == NULL)
{
- PL_dowarn = savewarn ;
+ dowarn = savewarn ;
return rcHashError ;
}
if (r -> bDebug & dbgEnv)
@@ -593,7 +593,7 @@
len = atoi (sLine) ;
if ((p = _malloc (len + 1)) == NULL)
{
- PL_dowarn = savewarn ;
+ dowarn = savewarn ;
return rcOutOfMemory ;
}
iread (p, len) ;
@@ -609,7 +609,7 @@
CloseInput () ;
- PL_dowarn = savewarn ;
+ dowarn = savewarn ;
return rc ;
}
@@ -655,8 +655,8 @@
HE * pEntry ;
char * pKey ;
I32 l ;
- int savewarn = PL_dowarn ;
- PL_dowarn = 0 ; /* no warnings here */
+ int savewarn = dowarn ;
+ dowarn = 0 ; /* no warnings here */
hv_iterinit (r -> pEnvHash) ;
while ((pEntry = hv_iternext (r -> pEnvHash)))
@@ -666,7 +666,7 @@
lprintf (r, "[%d]ENV: %s=%s\n", r -> nPid, pKey, SvPV (psv, na)) ;
}
- PL_dowarn = savewarn ;
+ dowarn = savewarn ;
}
sLen [0] = '\0' ;
1.19.4.5 +4 -1 embperl/epnames.h
Index: epnames.h
===================================================================
RCS file: /home/cvs/embperl/epnames.h,v
retrieving revision 1.19.4.4
retrieving revision 1.19.4.5
diff -u -r1.19.4.4 -r1.19.4.5
--- epnames.h 2001/03/27 11:52:12 1.19.4.4
+++ epnames.h 2001/03/28 19:16:04 1.19.4.5
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epnames.h,v 1.19.4.4 2001/03/27 11:52:12 richter Exp $
+# $Id: epnames.h,v 1.19.4.5 2001/03/28 19:16:04 richter Exp $
#
###################################################################################*/
@@ -189,6 +189,9 @@
#endif
#ifndef warnhook
#define warnhook PL_warnhook
+#endif
+#ifndef dowarn
+#define dowarn PL_dowarn
#endif
#ifndef diehook
#define diehook PL_diehook
1.70.4.42 +6 -3 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.70.4.41
retrieving revision 1.70.4.42
diff -u -r1.70.4.41 -r1.70.4.42
--- test.pl 2001/03/28 10:07:32 1.70.4.41
+++ test.pl 2001/03/28 19:16:05 1.70.4.42
@@ -11,7 +11,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: test.pl,v 1.70.4.41 2001/03/28 10:07:32 richter Exp $
+# $Id: test.pl,v 1.70.4.42 2001/03/28 19:16:05 richter Exp $
#
###################################################################################
@@ -85,6 +85,7 @@
'errors' => 6,
'version' => 2,
'cgi' => 0,
+ 'noloop' => 1,
},
'rawinput/rawinput.htm' => {
'option' => '16',
@@ -172,6 +173,7 @@
'upload.htm' => {
'query_info' => 'multval=A&multval=B&multval=C&single=S',
'offline' => 0,
+ 'noloop' => 1,
},
'reqrec.htm' => {
'offline' => 0,
@@ -474,6 +476,7 @@
'offline' => 0,
'cgi' => 0,
'repeat' => 2,
+ 'version' => 1,
},
'EmbperlObject/obj/epoobj1.htm' => {
'offline' => 0,
@@ -572,7 +575,7 @@
$opt_testlib = 1 ;
}
- if ($INC[0] =~ /^blib/)
+ if ($INC[0] =~ /^(\.\/)?blib/ )
{
my $i = 0 ;
foreach (@INC)
@@ -1057,7 +1060,7 @@
open SVLOG, $logfile or die "Cannot open $logfile ($!)" ;
- seek SVLOG, -3000, 2 ;
+ seek SVLOG, ($EP2?-10000:-3000), 2 ;
while (<SVLOG>)
{
No revision
No revision
1.9.6.3 +1 -1 embperl/test/conf/startup.pl
Index: startup.pl
===================================================================
RCS file: /home/cvs/embperl/test/conf/startup.pl,v
retrieving revision 1.9.6.2
retrieving revision 1.9.6.3
diff -u -r1.9.6.2 -r1.9.6.3
--- startup.pl 2001/03/27 12:28:27 1.9.6.2
+++ startup.pl 2001/03/28 19:16:08 1.9.6.3
@@ -14,7 +14,7 @@
my $i = 0 ;
foreach (@INC)
{
- $INC[$i] = "$cwd/$_" if (/^blib/) ;
+ $INC[$i] = "$cwd/$_" if (/^(\.\/)?blib/) ;
$i++ ;
}
1.8.6.2 +1 -1 embperl/test/conf/startup_dso.pl
Index: startup_dso.pl
===================================================================
RCS file: /home/cvs/embperl/test/conf/startup_dso.pl,v
retrieving revision 1.8.6.1
retrieving revision 1.8.6.2
diff -u -r1.8.6.1 -r1.8.6.2
--- startup_dso.pl 2001/03/27 07:09:31 1.8.6.1
+++ startup_dso.pl 2001/03/28 19:16:08 1.8.6.2
@@ -14,7 +14,7 @@
my $i = 0 ;
foreach (@INC)
{
- $INC[$i] = "$cwd/$_" if (/^blib/) ;
+ $INC[$i] = "$cwd/$_" if (/^(\.\/)?blib/) ;
$i++ ;
}
} ;
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org