richter 02/03/11 06:08:27
Modified: . Tag: Embperl2c README.v2 epinit.c
Embperl Tag: Embperl2c Object.pm
test Tag: Embperl2c testapp.pl
Log:
refcnt fixes
Revision Changes Path
No revision
No revision
1.1.4.27 +2 -2 embperl/Attic/README.v2
Index: README.v2
===================================================================
RCS file: /home/cvs/embperl/Attic/README.v2,v
retrieving revision 1.1.4.26
retrieving revision 1.1.4.27
diff -u -r1.1.4.26 -r1.1.4.27
--- README.v2 11 Mar 2002 08:47:25 -0000 1.1.4.26
+++ README.v2 11 Mar 2002 14:08:27 -0000 1.1.4.27
@@ -9,7 +9,7 @@
WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-$Id: README.v2,v 1.1.4.26 2002/03/11 08:47:25 richter Exp $
+$Id: README.v2,v 1.1.4.27 2002/03/11 14:08:27 richter Exp $
### !! IMPORTANT !! IMPORTANT !! IMPORTANT !! IMPORTANT !! IMPORTANT !!
@@ -802,7 +802,7 @@
sub init
{
my $self = shift ;
- $r = $self -> curr_req ;
+ my $r = $self -> curr_req ;
$lang = $r -> param -> language || 'de' ;
push @{$r -> messages}, $messages{$lang} ;
1.1.2.40 +5 -1 embperl/Attic/epinit.c
Index: epinit.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epinit.c,v
retrieving revision 1.1.2.39
retrieving revision 1.1.2.40
diff -u -r1.1.2.39 -r1.1.2.40
--- epinit.c 11 Mar 2002 08:47:26 -0000 1.1.2.39
+++ epinit.c 11 Mar 2002 14:08:27 -0000 1.1.2.40
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epinit.c,v 1.1.2.39 2002/03/11 08:47:26 richter Exp $
+# $Id: epinit.c,v 1.1.2.40 2002/03/11 14:08:27 richter Exp $
#
###################################################################################*/
@@ -1595,12 +1595,14 @@
sprintf (buf, "%d", SvREFCNT(SvRV(r -> Param._perlsv)) - 1) ;
LogErrorParam (r -> pApp, rcRefcntNotOne, buf, "request.param") ;
}
+ /*
if (SvREFCNT(SvRV(r -> _perlsv)) != 1)
{
char buf[20] ;
sprintf (buf, "%d", SvREFCNT(SvRV(r -> _perlsv)) - 1) ;
LogErrorParam (r -> pApp, rcRefcntNotOne, buf, "request") ;
}
+ */
SvREFCNT_dec (r -> Config._perlsv) ;
SvREFCNT_dec (r -> Param._perlsv) ;
@@ -1705,7 +1707,9 @@
pPool = ep_make_sub_pool (r -> pPool) ;
+ tainted = 0 ;
epxs_Embperl__Component__Output_create_obj(pOutput,pSV,pRV,ep_palloc(pPool,sizeof(tComponentOutput)))
;
+ tainted = 0 ;
pOutput -> pPool = pPool ;
c -> pOutput = pOutput ;
No revision
No revision
1.1.2.17 +2 -4 embperl/Embperl/Attic/Object.pm
Index: Object.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Attic/Object.pm,v
retrieving revision 1.1.2.16
retrieving revision 1.1.2.17
diff -u -r1.1.2.16 -r1.1.2.17
--- Object.pm 11 Mar 2002 08:47:27 -0000 1.1.2.16
+++ Object.pm 11 Mar 2002 14:08:27 -0000 1.1.2.17
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Object.pm,v 1.1.2.16 2002/03/11 08:47:27 richter Exp $
+# $Id: Object.pm,v 1.1.2.17 2002/03/11 14:08:27 richter Exp $
#
###################################################################################
@@ -99,11 +99,9 @@
sub handler
{
- my $r = shift ;
-
my %req ;
- $req{'req_rec'} = $r ;
+ $req{'req_rec'} = $_[0] ;
Execute (\%req) ;
}
No revision
No revision
1.1.2.2 +1 -1 embperl/test/Attic/testapp.pl
Index: testapp.pl
===================================================================
RCS file: /home/cvs/embperl/test/Attic/testapp.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- testapp.pl 5 Mar 2002 08:07:22 -0000 1.1.2.1
+++ testapp.pl 11 Mar 2002 14:08:27 -0000 1.1.2.2
@@ -36,7 +36,7 @@
sub init
{
my $self = shift ;
- $r = $self -> curr_req ;
+ my $r = $self -> curr_req ;
$lang = $r -> param -> language || 'de' ;
push @{$r -> messages}, $messages{$lang} ;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
