Skip Menu |
 

This queue is for tickets about the POE-Component-EasyDBI CPAN distribution.

Report information
The Basics
Id: 32447
Status: resolved
Worked: 5 min
Priority: 0/
Queue: POE-Component-EasyDBI

People
Owner: GVL [...] cpan.org
Requestors: AGRUNDMA [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Critical
Broken in: 1.23
Fixed in: (no value)



Subject: [Patch] combo query does not pass-through args
Download (untitled) / with headers
text/plain 694b
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 );
Patch attached as a file.
--- 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 );
Fixed in 1.24. Thank you.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.