... | ... |
@@ -447,11 +447,9 @@ sub execute { |
447 | 447 |
my $sth = $query->sth; |
448 | 448 |
my $affected; |
449 | 449 |
eval { |
450 |
- for (my $i = 0; $i < @$bind; $i++) { |
|
451 |
- my $bind_type = $bind->[$i]->{bind_type}; |
|
452 |
- $sth->bind_param($i + 1, $bind->[$i]->{value}, |
|
453 |
- $bind_type ? $bind_type : ()); |
|
454 |
- } |
|
450 |
+ $sth->bind_param($_ + 1, $bind->[$_]->{value}, |
|
451 |
+ $bind->[$_]->{bind_type} ? $bind->[$_]->{bind_type} : ()) |
|
452 |
+ for (0 .. @$bind - 1); |
|
455 | 453 |
$affected = $sth->execute; |
456 | 454 |
}; |
457 | 455 |
|