richter 01/05/26 08:45:09
Modified: . Tag: Embperl2c Embperl.pm Embperl.xs
Log:
Embperl 2 - reset error
Revision Changes Path
No revision
No revision
1.118.4.42 +2 -2 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.118.4.41
retrieving revision 1.118.4.42
diff -u -r1.118.4.41 -r1.118.4.42
--- Embperl.pm 2001/05/17 06:41:24 1.118.4.41
+++ Embperl.pm 2001/05/26 15:45:08 1.118.4.42
@@ -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.41 2001/05/17 06:41:24 richter Exp $
+# $Id: Embperl.pm,v 1.118.4.42 2001/05/26 15:45:08 richter Exp $
#
###################################################################################
@@ -94,7 +94,7 @@
##ep2##
-$VERSION = '2.0b3_dev-6' ;
+$VERSION = '2.0b3_dev-7' ;
##/ep2##
##ep1##$VERSION = '1.3.2';
1.29.4.18 +3 -1 embperl/Embperl.xs
Index: Embperl.xs
===================================================================
RCS file: /home/cvs/embperl/Embperl.xs,v
retrieving revision 1.29.4.17
retrieving revision 1.29.4.18
diff -u -r1.29.4.17 -r1.29.4.18
--- Embperl.xs 2001/05/16 14:04:25 1.29.4.17
+++ Embperl.xs 2001/05/26 15:45:09 1.29.4.18
@@ -556,10 +556,12 @@
RETVAL
int
-embperl_Error(r)
+embperl_Error(r,...)
tReq * r
CODE:
RETVAL = r -> bError ;
+ if (items > 1)
+ r -> bError = (int)SvIV(ST(1)) ;
OUTPUT:
RETVAL
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
