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...@locus.apache.org on 2000/11/02 15:51:39 UTC
cvs commit: embperl Embperl.pm epeval.c
richter 00/11/02 06:51:36
Modified: . Tag: Embperl2c Embperl.pm epeval.c
Log:
Embperl 2
Revision Changes Path
No revision
No revision
1.118.4.8 +2 -2 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.118.4.7
retrieving revision 1.118.4.8
diff -u -r1.118.4.7 -r1.118.4.8
--- Embperl.pm 2000/11/02 13:00:24 1.118.4.7
+++ Embperl.pm 2000/11/02 14:51:26 1.118.4.8
@@ -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.118.4.7 2000/11/02 13:00:24 richter Exp $
+# $Id: Embperl.pm,v 1.118.4.8 2000/11/02 14:51:26 richter Exp $
#
###################################################################################
@@ -86,7 +86,7 @@
##ep2##
-$VERSION = '2.0a10' ;
+$VERSION = '2.0a11' ;
##/ep2##
##ep1##$VERSION = '1.3b6';
1.23.4.4 +4 -4 embperl/epeval.c
Index: epeval.c
===================================================================
RCS file: /home/cvs/embperl/epeval.c,v
retrieving revision 1.23.4.3
retrieving revision 1.23.4.4
diff -u -r1.23.4.3 -r1.23.4.4
--- epeval.c 2000/10/18 13:28:53 1.23.4.3
+++ epeval.c 2000/11/02 14:51:29 1.23.4.4
@@ -104,7 +104,7 @@
GetLineNo (r) ;
if (r -> bDebug & dbgDefEval)
- lprintf (r, "[%d]DEF: Line %d: %s\n", r -> nPid, r -> Buf.nSourceline, sArg) ;
+ lprintf (r, "[%d]DEF: Line %d: %s\n", r -> nPid, r -> Buf.nSourceline, sArg?sArg:"<unknown>") ;
tainted = 0 ;
pCurrReq = r ;
@@ -192,7 +192,7 @@
EPENTRY (EvalAll) ;
if (r -> bDebug & dbgEval)
- lprintf (r, "[%d]EVAL< %s\n", r -> nPid, sArg) ;
+ lprintf (r, "[%d]EVAL< %s\n", r -> nPid, sArg?sArg:"<unknown>") ;
tainted = 0 ;
pCurrReq = r ;
@@ -331,7 +331,7 @@
EPENTRY (CallCV) ;
if (r -> bDebug & dbgEval)
- lprintf (r, "[%d]EVAL< %s\n", r -> nPid, sArg) ;
+ lprintf (r, "[%d]EVAL< %s\n", r -> nPid, sArg?sArg:"<unknown>") ;
tainted = 0 ;
pCurrReq = r ;
@@ -613,7 +613,7 @@
EPENTRY (CallCV) ;
if (r -> bDebug & dbgEval)
- lprintf (r, "[%d]EVAL< %s\n", r -> nPid, sArg) ;
+ lprintf (r, "[%d]EVAL< %s\n", r -> nPid, sArg?sArg:"<unknown>") ;
tainted = 0 ;
pCurrReq = r ;