Just in case anybody needs this patch. This fixes the commit in DBD::Proxy
for DBI-1.20. Tim will have in the next DBI release.
-----FW: <[EMAIL PROTECTED]>-----
Date: Fri, 12 Oct 2001 10:43:07 +0200
From: Jochen Wiedmann <[EMAIL PROTECTED]>
To: "Scott T. Hildreth" <[EMAIL PROTECTED]>
Subject: Re: FW: Commit - not working 1.20 (Proxy)
Try the following patch.
--- Proxy.pm Fri Aug 24 22:05:44 2001
+++ c:\Perl\site\lib\DBD\Proxy.pm Mon Sep 17 13:49:45 2001
@@ -175,7 +175,8 @@
'CachedKids' => 'local',
'PrintError' => 'local',
'RaiseError' => 'local',
- 'RowCacheSize' => 'inherited'
+ 'RowCacheSize' => 'inherited',
+ 'AutoCommit' => 'cached'
);
sub AUTOLOAD {
@@ -237,9 +238,10 @@
return 1;
}
- if ($type eq 'remote') {
+ if ($type eq 'remote' || $type eq 'cached') {
my $result = eval { $dbh->{'proxy_dbh'}->STORE($attr => $val) };
return DBI::set_err($dbh, 1, $@) if $@; # returns undef
+
$dbh->{$attr} = $val if $type eq 'cached';
return $result;
}
return $dbh->SUPER::STORE($attr => $val);
@@ -249,7 +251,8 @@
my($dbh, $attr) = @_;
my $type = $ATTR{$attr} || 'remote';
- if ($attr =~ /^proxy_/ || $type eq 'inherited') {
+ if ($attr =~ /^proxy_/ || $type eq 'inherited' ||
+
$type eq 'cached') {
return $dbh->{$attr};
}
--------------End of forwarded message-------------------------
----------------------------------
E-Mail: Scott T. Hildreth <[EMAIL PROTECTED]>
Date: 23-Oct-01
Time: 12:03:51
----------------------------------
