--- Manager.pm (revision 2313)
+++ Manager.pm (working copy)
@@ -3464,6 +3464,7 @@
my $methods = $args{'_methods'};
my $exec_args = $args{'args'} || [];
+ my $attr = $args{'attr'};
my $have_methods = ($args{'_methods'} && %{$args{'_methods'}}) ? 1 : 0;
@@ -3499,8 +3500,8 @@
local $dbh->{'RaiseError'} = 1;
$Debug && warn "$sql (", join(', ', @$exec_args), ")\n";
- my $sth = $prepare_cached ? $dbh->prepare_cached($sql, undef, 3) :
- $dbh->prepare($sql) or die $dbh->errstr;
+ my $sth = $prepare_cached ? $dbh->prepare_cached($sql, $attr, 3) :
+ $dbh->prepare($sql, $attr) or die $dbh->errstr;
$sth->execute(@$exec_args);
@@ -3591,6 +3592,7 @@
my $methods = $args{'_methods'};
my $exec_args = $args{'args'} || [];
+ my $attr = $args{'attr'};
my $have_methods = ($args{'_methods'} && %{$args{'_methods'}}) ? 1 : 0;
@@ -3626,8 +3628,8 @@
local $dbh->{'RaiseError'} = 1;
$Debug && warn "$sql (", join(', ', @$exec_args), ")\n";
- $sth = $prepare_cached ? $dbh->prepare_cached($sql, undef, 3) :
- $dbh->prepare($sql) or die $dbh->errstr;
+ $sth = $prepare_cached ? $dbh->prepare_cached($sql, $attr, 3) :
+ $dbh->prepare($sql, $attr) or die $dbh->errstr;
$sth->execute(@$exec_args);
};
Message body is not shown because it is too large.