richter 02/05/21 00:48:31
Modified: . Tag: Embperl2c Embperl.pm epnames.h
test/html Tag: Embperl2c changeattr.htm
Log:
test for changeattr segfault
Revision Changes Path
No revision
No revision
1.118.4.106 +2 -2 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.118.4.105
retrieving revision 1.118.4.106
diff -u -r1.118.4.105 -r1.118.4.106
--- Embperl.pm 20 May 2002 07:04:44 -0000 1.118.4.105
+++ Embperl.pm 21 May 2002 07:48:30 -0000 1.118.4.106
@@ -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.105 2002/05/20 07:04:44 richter Exp $
+# $Id: Embperl.pm,v 1.118.4.106 2002/05/21 07:48:30 richter Exp $
#
###################################################################################
@@ -46,7 +46,7 @@
@ISA = qw(Exporter DynaLoader);
-$VERSION = '2.0b8_dev-4' ;
+$VERSION = '2.0b8_dev-7' ;
$modperl = $ENV{MOD_PERL} ;
1.19.4.20 +5 -1 embperl/epnames.h
Index: epnames.h
===================================================================
RCS file: /home/cvs/embperl/epnames.h,v
retrieving revision 1.19.4.19
retrieving revision 1.19.4.20
diff -u -r1.19.4.19 -r1.19.4.20
--- epnames.h 20 Mar 2002 06:28:22 -0000 1.19.4.19
+++ epnames.h 21 May 2002 07:48:30 -0000 1.19.4.20
@@ -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.19 2002/03/20 06:28:22 richter Exp $
+# $Id: epnames.h,v 1.19.4.20 2002/05/21 07:48:30 richter Exp $
#
###################################################################################*/
@@ -246,6 +246,10 @@
#define dTHXsem
#else
#define dTHXsem dTHX ;
+#endif
+
+#ifndef XSprePUSH
+#define XSprePUSH (sp = PL_stack_base + ax - 1)
#endif
No revision
No revision
1.1.2.2 +6 -0 embperl/test/html/Attic/changeattr.htm
Index: changeattr.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/Attic/changeattr.htm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- changeattr.htm 17 May 2002 13:18:57 -0000 1.1.2.1
+++ changeattr.htm 21 May 2002 07:48:31 -0000 1.1.2.2
@@ -19,4 +19,10 @@
<a href="[+ $candy +]">dairy</a>
+<!-- foreach a -->
+
+[$ foreach $s ('a','b') $]
+<a href="[+ $s +]">XX</a>
+[$ endforeach $]
+
<!-- end -->
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
