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/24 21:39:33 UTC
cvs commit: embperl Changes.pod Embperl.pm epapinit.c epinit.c
richter 02/05/24 12:39:33
Modified: . Tag: Embperl2c Changes.pod Embperl.pm epapinit.c
epinit.c
Log:
fix import refcnt
Revision Changes Path
No revision
No revision
1.129.4.71 +2 -0 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.129.4.70
retrieving revision 1.129.4.71
diff -u -r1.129.4.70 -r1.129.4.71
--- Changes.pod 20 May 2002 12:59:09 -0000 1.129.4.70
+++ Changes.pod 24 May 2002 19:39:32 -0000 1.129.4.71
@@ -26,6 +26,8 @@
trace.
- When file is not found, Embperl::Object now returns status 404, instead of
500. Reported by Cameron McBride.
+ - Fixed a reference count error when using the import parameter. Reported
+ by Michael Smith.
=head1 2.0b7 (BETA) 21. Mar. 2002
1.118.4.110 +5 -5 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.118.4.109
retrieving revision 1.118.4.110
diff -u -r1.118.4.109 -r1.118.4.110
--- Embperl.pm 24 May 2002 07:25:35 -0000 1.118.4.109
+++ Embperl.pm 24 May 2002 19:39:32 -0000 1.118.4.110
@@ -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.109 2002/05/24 07:25:35 richter Exp $
+# $Id: Embperl.pm,v 1.118.4.110 2002/05/24 19:39:32 richter Exp $
#
###################################################################################
@@ -47,7 +47,7 @@
@ISA = qw(Exporter DynaLoader);
-$VERSION = '2.0b8_dev-8' ;
+$VERSION = '2.0b8_dev-9' ;
if ($modperl = $ENV{MOD_PERL})
@@ -73,11 +73,11 @@
if (!defined(&Embperl::Init))
{
bootstrap Embperl $VERSION ;
- print STDERR "Boot\n" ;
+ #print STDERR "Boot\n" ;
Boot ($VERSION) ;
- print STDERR "Init\n" ;
+ #print STDERR "Init\n" ;
Init ($modperl?Apache -> server:undef, \%initparam) ;
- print STDERR "Init done\n" ;
+ #print STDERR "Init done\n" ;
}
$cwd = Cwd::fastcwd();
1.1.2.42 +2 -2 embperl/epapinit.c
Index: epapinit.c
===================================================================
RCS file: /home/cvs/embperl/epapinit.c,v
retrieving revision 1.1.2.41
retrieving revision 1.1.2.42
diff -u -r1.1.2.41 -r1.1.2.42
--- epapinit.c 24 May 2002 15:32:06 -0000 1.1.2.41
+++ epapinit.c 24 May 2002 19:39:32 -0000 1.1.2.42
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epapinit.c,v 1.1.2.41 2002/05/24 15:32:06 richter Exp $
+# $Id: epapinit.c,v 1.1.2.42 2002/05/24 19:39:32 richter Exp $
#
###################################################################################*/
@@ -36,7 +36,7 @@
#endif
#endif
-static int bApDebug = 1; // 0 ;
+static int bApDebug = 0 ;
/* define config prototypes */
1.1.2.54 +2 -1 embperl/Attic/epinit.c
Index: epinit.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epinit.c,v
retrieving revision 1.1.2.53
retrieving revision 1.1.2.54
diff -u -r1.1.2.53 -r1.1.2.54
--- epinit.c 24 May 2002 05:43:14 -0000 1.1.2.53
+++ epinit.c 24 May 2002 19:39:32 -0000 1.1.2.54
@@ -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.53 2002/05/24 05:43:14 richter Exp $
+# $Id: epinit.c,v 1.1.2.54 2002/05/24 19:39:32 richter Exp $
#
###################################################################################*/
@@ -1923,6 +1923,7 @@
strncpy (r -> errdat1, c -> sImportPackage, sizeof (r -> errdat1) - 1);
LogError (r, rcImportStashErr) ;
}
+ SvREFCNT_inc(c -> pImportStash) ;
}
}
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org