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/05/20 08:57:36 UTC
cvs commit: embperl/Embperl Object.pm
richter 02/05/19 23:57:36
Modified: . Tag: Embperl2c Embperl.xs
Embperl Tag: Embperl2c Object.pm
Log:
fix segfaults
Revision Changes Path
No revision
No revision
1.29.4.51 +2 -2 embperl/Embperl.xs
Index: Embperl.xs
===================================================================
RCS file: /home/cvs/embperl/Embperl.xs,v
retrieving revision 1.29.4.50
retrieving revision 1.29.4.51
diff -u -r1.29.4.50 -r1.29.4.51
--- Embperl.xs 20 May 2002 06:09:50 -0000 1.29.4.50
+++ Embperl.xs 20 May 2002 06:57:35 -0000 1.29.4.51
@@ -49,7 +49,7 @@
Embperl__Req ppReq;
PPCODE:
RETVAL = embperl_InitRequest(aTHX_ pApacheReqSV, pPerlParam, &ppReq);
- SPAGAIN;
+ XSprePUSH ;
EXTEND(SP, 2) ;
PUSHs(epxs_IV_2obj(RETVAL)) ;
PUSHs(epxs_Embperl__Req_2obj(ppReq)) ;
@@ -62,7 +62,7 @@
Embperl__Req ppReq;
PPCODE:
RETVAL = embperl_InitRequestComponent(aTHX_ pApacheReqSV, pPerlParam, &ppReq);
- SPAGAIN;
+ XSprePUSH ;
EXTEND(SP, 2) ;
PUSHs(epxs_IV_2obj(RETVAL)) ;
PUSHs(epxs_Embperl__Req_2obj(ppReq)) ;
No revision
No revision
1.1.2.20 +7 -1 embperl/Embperl/Attic/Object.pm
Index: Object.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Attic/Object.pm,v
retrieving revision 1.1.2.19
retrieving revision 1.1.2.20
diff -u -r1.1.2.19 -r1.1.2.20
--- Object.pm 21 Mar 2002 15:02:43 -0000 1.1.2.19
+++ Object.pm 20 May 2002 06:57:35 -0000 1.1.2.20
@@ -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.19 2002/03/21 15:02:43 richter Exp $
+# $Id: Object.pm,v 1.1.2.20 2002/05/20 06:57:35 richter Exp $
#
###################################################################################
@@ -130,7 +130,13 @@
my ($rc, $r) = Embperl::Req::InitRequest ($req -> {req_rec}, $req) ;
return $rc if ($rc) ;
+ warn "rc = $rc r = $r" ;
+
+ use Data::Dumper ;
+ print Dumper ($r) ;
+
my $app = $r -> app ;
+
my $appcfg = $app -> config;
my $cwd ;
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org