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 2001/09/02 20:06:09 UTC
cvs commit: embperl Changes.pod Embperl.pm
richter 01/09/02 11:06:09
Modified: . Changes.pod Embperl.pm
Log:
- Cleanup of DBIx::Recordset objects now honors the setting in %CLEANUP.
Problem reported by Kee Hinckley.
Revision Changes Path
1.183 +2 -0 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.182
retrieving revision 1.183
diff -u -r1.182 -r1.183
--- Changes.pod 2001/09/01 21:31:10 1.182
+++ Changes.pod 2001/09/02 18:06:08 1.183
@@ -30,6 +30,8 @@
Reported by David Merberg.
- Add undef to %idat for select tag with nothing selected if
optAllFormdata is set.
+ - Cleanup of DBIx::Recordset objects now honors the setting in %CLEANUP.
+ Problem reported by Kee Hinckley.
=head1 1.3.3 (RELEASE) 6. Juni 2001
1.170 +5 -3 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.169
retrieving revision 1.170
diff -u -r1.169 -r1.170
--- Embperl.pm 2001/09/01 21:31:10 1.169
+++ Embperl.pm 2001/09/02 18:06:08 1.170
@@ -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.169 2001/09/01 21:31:10 richter Exp $
+# $Id: Embperl.pm,v 1.170 2001/09/02 18:06:08 richter Exp $
#
###################################################################################
@@ -1331,7 +1331,8 @@
$varfile = GVFile (${*{"$package\::"}}{$key}) ;
#$varfile = GVFile (*ENTRY) ;
$glob = $package.'::'.$key ;
- if (defined (*ENTRY{SCALAR}) && defined (${$glob}) && ref (${$glob}) eq 'DBIx::Recordset')
+ if (defined (*ENTRY{SCALAR}) && defined (${$glob}) && ref (${$glob}) eq 'DBIx::Recordset' &&
+ !(defined ($addcleanup -> {$key}) && $addcleanup -> {$key} == 0))
{
print LOG "[$$]CUP: Recordset $key\n" ;
eval { DBIx::Recordset::Undef ($glob) ; } ;
@@ -1410,7 +1411,8 @@
next if ($key =~ /^::/) ;
local(*ENTRY) = $val;
$glob = $package.'::'.$key ;
- if (defined (*ENTRY{SCALAR}) && defined (${$glob}) && ref (${$glob}) eq 'DBIx::Recordset')
+ if (defined (*ENTRY{SCALAR}) && defined (${$glob}) && ref (${$glob}) eq 'DBIx::Recordset' &&
+ !(defined ($addcleanup -> {$key}) && $addcleanup -> {$key} == 0))
{
eval { DBIx::Recordset::Undef ($glob) ; } ;
print LOG "[$$]CUP: Error: $@\n" if ($@) ;
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org