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/10/11 17:45:23 UTC
cvs commit: embperl/test/cmp asp.htm
richter 2002/10/11 08:45:23
Modified: . Tag: Embperl2c Changes.pod epcomp.c
Embperl/Syntax Tag: Embperl2c EmbperlBlocks.pm Test2.pm
test/cmp Tag: Embperl2c asp.htm
Log:
fix sub with Perl 5.8.0
Revision Changes Path
No revision
No revision
1.129.4.96 +1 -1 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.129.4.95
retrieving revision 1.129.4.96
diff -u -r1.129.4.95 -r1.129.4.96
--- Changes.pod 9 Oct 2002 06:46:14 -0000 1.129.4.95
+++ Changes.pod 11 Oct 2002 15:45:22 -0000 1.129.4.96
@@ -30,7 +30,7 @@
- Replaced PL_sv_undef with ep_sv_undef (which is a copy of PL_sv_undef),
because storing PL_sv_undef in a Perl 5.8.0 hash is treated as a placeholder
and doesn't work as before.
-
+ - Fixed problem with [$ sub $] when running under Perl 5.8.0.
=head1 2.0b8 (BETA) 25. Juni 2002
1.4.2.99 +4 -3 embperl/Attic/epcomp.c
Index: epcomp.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epcomp.c,v
retrieving revision 1.4.2.98
retrieving revision 1.4.2.99
diff -u -r1.4.2.98 -r1.4.2.99
--- epcomp.c 9 Oct 2002 06:46:14 -0000 1.4.2.98
+++ epcomp.c 11 Oct 2002 15:45:22 -0000 1.4.2.99
@@ -235,13 +235,14 @@
pInfo -> pEmbperlCmds[nNodeName].sMayJump = pCmd -> sMayJump ;
if (r -> Component.Config.bDebug & dbgBuildToken)
- lprintf (r -> pApp, "[%d]EPCOMP: InitItem %s (#%d) perlcode=%s (num=%d) perlcodeend=%s compilechilds=%d removenode=%d\n",
+ lprintf (r -> pApp, "[%d]EPCOMP: InitItem %s (#%d) perlcode=%s (num=%d) perlcodeend=%s compilechilds=%d removenode=%d nodetype=%d\n",
r -> pThread -> nPid, Ndx2String(nNodeName), nNodeName,
pCmd -> sPerlCode?pCmd -> sPerlCode[0]:"",
pCmd -> numPerlCode,
pCmd -> sPerlCodeEnd?pCmd -> sPerlCodeEnd:"<undef>",
pCmd -> bCompileChilds,
- pCmd -> bRemoveNode) ;
+ pCmd -> bRemoveNode,
+ pCmd -> nNodeType) ;
return ok ;
}
No revision
No revision
1.1.2.26 +8 -23 embperl/Embperl/Syntax/Attic/EmbperlBlocks.pm
Index: EmbperlBlocks.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Syntax/Attic/EmbperlBlocks.pm,v
retrieving revision 1.1.2.25
retrieving revision 1.1.2.26
diff -u -r1.1.2.25 -r1.1.2.26
--- EmbperlBlocks.pm 28 May 2002 18:58:01 -0000 1.1.2.25
+++ EmbperlBlocks.pm 11 Oct 2002 15:45:22 -0000 1.1.2.26
@@ -117,9 +117,7 @@
{
my ($self, $cmdname, $endname, $procinfo) = @_ ;
- my $tag = $self -> AddMetaCmd ($cmdname, $procinfo) ;
-
- $tag -> {'endtag'} = $endname ;
+ my $tag = $self -> AddMetaCmd ($cmdname, $procinfo, {'endtag' => $endname} ) ;
return $tag ;
}
@@ -137,19 +135,11 @@
my ($self, $cmdname, $endname, $procinfostart, $procinfoend) = @_ ;
my $tag ;
- my $pinfo ;
+ my $pinfo = { %$procinfostart, 'stackname' => 'metacmd', 'push' => $cmdname };
+ $tag = $self -> AddMetaCmd ($cmdname, $pinfo, {'endtag' => $endname} ) ;
- $tag = $self -> AddMetaCmd ($cmdname, $procinfostart) ;
- $tag -> {'endtag'} = $endname ;
- $pinfo = $tag -> {'procinfo'} -> {$self -> {-procinfotype}} ;
- $pinfo -> {'stackname'} = 'metacmd' ;
- $pinfo -> {'push'} = $cmdname ;
-
- $tag = $self -> AddMetaCmd ($endname, $procinfoend) ;
- $pinfo = $tag -> {'procinfo'} -> {$self -> {-procinfotype}} ;
- $pinfo -> {'stackname'} = 'metacmd' ;
- $pinfo -> {'stackmatch'} = $cmdname ;
-
+ $pinfo = { %$procinfoend, 'stackname' => 'metacmd', 'stackmatch' => $cmdname };
+ $tag = $self -> AddMetaCmd ($endname, $pinfo) ;
return $tag ;
}
@@ -169,14 +159,9 @@
my $tag ;
my $pinfo ;
- $tag = $self -> AddMetaCmd ($cmdname, $procinfostart) ;
- $tag -> {'nodetype'} = &ntypStartTag ;
-
+ $tag = $self -> AddMetaCmd ($cmdname, $procinfostart, {'nodetype' => &ntypStartTag}) ;
- $tag = $self -> AddMetaCmd ($endname) ;
- $tag -> {'nodetype'} = &ntypEndTag ;
- $tag -> {'starttag'} = $cmdname ;
-
+ $tag = $self -> AddMetaCmd ($endname, undef, {'nodetype' => &ntypEndTag, 'starttag' => $cmdname}) ;
return $tag ;
}
1.1.2.4 +2 -1 embperl/Embperl/Syntax/Attic/Test2.pm
Index: Test2.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Syntax/Attic/Test2.pm,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -u -r1.1.2.3 -r1.1.2.4
--- Test2.pm 21 May 2002 12:09:08 -0000 1.1.2.3
+++ Test2.pm 11 Oct 2002 15:45:22 -0000 1.1.2.4
@@ -2,7 +2,6 @@
use Embperl::Syntax qw{:types} ;
use Embperl::Syntax::HTML ;
-use URI;
use File::Spec::Unix;
# We inherit the generic HTML support from Embperl::Syntax::HTML
@@ -53,3 +52,5 @@
warn "rewrite_url got $_[0]\n" ;
return "**$_[0]**12**";
}
+
+1 ;
No revision
No revision
1.1.2.3 +1 -1 embperl/test/cmp/Attic/asp.htm
Index: asp.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/Attic/asp.htm,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -r1.1.2.2 -r1.1.2.3
--- asp.htm 10 Sep 2001 13:44:26 -0000 1.1.2.2
+++ asp.htm 11 Oct 2002 15:45:23 -0000 1.1.2.3
@@ -30,7 +30,7 @@
</table>
<a href="11">
-<a href="p%25u%26g%3D���">
+<a href="p%25u%26g%3D%E4%F6%FC">
<a p%u&g=äöü href="xxx">
esc = p%u&g=äöü
</body>
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org