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 2002/06/05 20:07:57 UTC
cvs commit: embperl/test/html changeattr.htm
richter 2002/06/05 11:07:57
Modified: . Tag: Embperl2c Embperl.pm embperl.h epdom.c
test/cmp Tag: Embperl2c changeattr.htm
test/html Tag: Embperl2c changeattr.htm
Log:
fix if inside of attributes that get interpreted
Revision Changes Path
No revision
No revision
1.118.4.114 +2 -2 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.118.4.113
retrieving revision 1.118.4.114
diff -u -r1.118.4.113 -r1.118.4.114
--- Embperl.pm 1 Jun 2002 23:44:24 -0000 1.118.4.113
+++ Embperl.pm 5 Jun 2002 18:07:56 -0000 1.118.4.114
@@ -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.113 2002/06/01 23:44:24 richter Exp $
+# $Id: Embperl.pm,v 1.118.4.114 2002/06/05 18:07:56 richter Exp $
#
###################################################################################
@@ -46,7 +46,7 @@
@ISA = qw(Exporter DynaLoader);
-$VERSION = '2.0b8_dev-12' ;
+$VERSION = '2.0b8_dev-13' ;
if ($modperl = $ENV{MOD_PERL})
1.19.4.29 +3 -2 embperl/embperl.h
Index: embperl.h
===================================================================
RCS file: /home/cvs/embperl/embperl.h,v
retrieving revision 1.19.4.28
retrieving revision 1.19.4.29
diff -u -r1.19.4.28 -r1.19.4.29
--- embperl.h 1 Jun 2002 23:44:25 -0000 1.19.4.28
+++ embperl.h 5 Jun 2002 18:07:56 -0000 1.19.4.29
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: embperl.h,v 1.19.4.28 2002/06/01 23:44:25 richter Exp $
+# $Id: embperl.h,v 1.19.4.29 2002/06/05 18:07:56 richter Exp $
#
###################################################################################*/
@@ -168,7 +168,8 @@
optOpenLogEarly = 0x200000,
optNoUncloseWarn = 0x400000,
optDisableSelectScan = 0x800000,
- optShowBacktrace = 0x8000000
+ optShowBacktrace = 0x8000000,
+ optEnableChdir = 0x1000000
} ;
/* --- output escaping --- */
1.4.2.92 +6 -3 embperl/Attic/epdom.c
Index: epdom.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epdom.c,v
retrieving revision 1.4.2.91
retrieving revision 1.4.2.92
diff -u -r1.4.2.91 -r1.4.2.92
--- epdom.c 28 May 2002 06:56:03 -0000 1.4.2.91
+++ epdom.c 5 Jun 2002 18:07:56 -0000 1.4.2.92
@@ -9,7 +9,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epdom.c,v 1.4.2.91 2002/05/28 06:56:03 richter Exp $
+# $Id: epdom.c,v 1.4.2.92 2002/06/05 18:07:56 richter Exp $
#
###################################################################################*/
@@ -3849,8 +3849,11 @@
char * s ;
int l ;
- Ndx2StringLen (pNode -> nText,s,l) ;
- StringAdd (a, ppAttr, s, l) ;
+ if ((pNode -> bFlags & nflgIgnore) == 0)
+ {
+ Ndx2StringLen (pNode -> nText,s,l) ;
+ StringAdd (a, ppAttr, s, l) ;
+ }
pNode = Node_selfNextSibling (a, pDomTree, pNode, nRepeatLevel) ;
}
No revision
No revision
1.1.2.3 +4 -0 embperl/test/cmp/Attic/changeattr.htm
Index: changeattr.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/Attic/changeattr.htm,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -r1.1.2.2 -r1.1.2.3
--- changeattr.htm 21 May 2002 12:09:08 -0000 1.1.2.2
+++ changeattr.htm 5 Jun 2002 18:07:57 -0000 1.1.2.3
@@ -20,4 +20,8 @@
<a href="**a**12**">XX</a>
<a href="**b**12**">XX</a>
+<!-- if inside href -->
+
+<a href="**before http://dairy milk after **12**"> ooooh </a>
+
<!-- end -->
No revision
No revision
1.1.2.4 +3 -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.3
retrieving revision 1.1.2.4
diff -u -r1.1.2.3 -r1.1.2.4
--- changeattr.htm 21 May 2002 12:09:08 -0000 1.1.2.3
+++ changeattr.htm 5 Jun 2002 18:07:57 -0000 1.1.2.4
@@ -27,5 +27,8 @@
<a href="[+ $s +]">XX</a>
[$ endforeach $]
+<!-- if inside href -->
+
+<a href=" [$ if 1 $] before [+ $candy +] after [$ else $] never [$ endif$]"> ooooh </a>
<!-- end -->
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org