richter 00/12/21 22:19:47
Modified: . Tag: Embperl2c epcomp.c eputil.c
Embperl Tag: Embperl2c Syntax.pm
Log:
Embperl 2 - fix error with cleanup and [$ var $]
Revision Changes Path
No revision
No revision
1.4.2.32 +4 -0 embperl/Attic/epcomp.c
Index: epcomp.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epcomp.c,v
retrieving revision 1.4.2.31
retrieving revision 1.4.2.32
diff -u -r1.4.2.31 -r1.4.2.32
--- epcomp.c 2000/12/21 06:20:15 1.4.2.31
+++ epcomp.c 2000/12/22 06:19:46 1.4.2.32
@@ -700,6 +700,10 @@
break ;
}
}
+ else if (type == '%')
+ {
+ StringAdd (ppCode, "%", 1) ;
+ }
else if (type == '$')
{
if (*p == 'n')
1.15.4.3 +1 -1 embperl/eputil.c
Index: eputil.c
===================================================================
RCS file: /home/cvs/embperl/eputil.c,v
retrieving revision 1.15.4.2
retrieving revision 1.15.4.3
diff -u -r1.15.4.2 -r1.15.4.3
--- eputil.c 2000/12/19 09:11:03 1.15.4.2
+++ eputil.c 2000/12/22 06:19:46 1.15.4.3
@@ -928,7 +928,7 @@
}
- if (!(ppSV && *ppSV && SvIV (*ppSV) == 1))
+ if (!(ppSV && *ppSV && SvTRUE (*ppSV)))
{
if(GvIMPORTED((GV*)val))
{
No revision
No revision
1.1.4.13 +7 -2 embperl/Embperl/Attic/Syntax.pm
Index: Syntax.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Attic/Syntax.pm,v
retrieving revision 1.1.4.12
retrieving revision 1.1.4.13
diff -u -r1.1.4.12 -r1.1.4.13
--- Syntax.pm 2000/12/20 07:32:37 1.1.4.12
+++ Syntax.pm 2000/12/22 06:19:46 1.1.4.13
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Syntax.pm,v 1.1.4.12 2000/12/20 07:32:37 richter Exp $
+# $Id: Syntax.pm,v 1.1.4.13 2000/12/22 06:19:46 richter Exp $
#
###################################################################################
@@ -673,7 +673,8 @@
'unescape' => 1,
'procinfo' => {
embperl => {
- perlcode => 'use strict ; use vars qw {%&<noname>%} ;',
+ compiletimeperlcode => 'use strict ; use vars qw{%%CLEANUP
%&<noname>%} ; map { $CLEANUP{substr($_,1)} = 1 } qw{%&<noname>%} ;',
+ perlcode => 'use strict ;',
removenode => 3,
}
},
@@ -983,6 +984,10 @@
=item %$q+%
Index of source Dom Tree
+
+=item %%
+
+Gives a single %
=back
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
