| Subject: | [Patch] combo query does not pass-through args |
The combo query does not pass-through extra arguments supplied by the
caller. Patch is below.
--- lib/POE/Component/EasyDBI.pm (revision 37)
+++ lib/POE/Component/EasyDBI.pm (working copy)
@@ -411,6 +411,13 @@
foreach my $i ( 0 .. $#{ $args->{queries} } ) {
my ($type, $arg) = %{ $args->{queries}->[ $i ] };
+
+ # Copy pass-through options
+ for my $key ( keys %{ $args } ) {
+ next if defined $arg->{$key} || $key eq 'queries';
+ $arg->{$key} = $args->{$key};
+ }
+
$arg->{event} = $handle;
$arg->{__last} = ( $i == $#{ $args->{queries} } );
$kernel->call( $_[SESSION] => $type => $arg );