On Mon Sep 23 10:37:39 2013, avkhozov@googlemail.com wrote:
Show quoted text> Hi!
>
> Code:
>
>
> my $cache = $dbh->{Driver}{CachedKids};
> for (grep {$cache->{$_} == $dbh} keys %{$cache}) {
> weaken($cache->{$_});
> }
>
> generate warning ( Use of uninitialized value in numeric eq (==) ) if $dbh
> was undefined and some handles exists in $cache.
>
>
>
A minimal script for demonstration this error:
===
#!/usr/bin/env perl
use strict;
use warnings;
use AnyEvent::DBI::MySQL ();
my ($db1, $db2, $db3);
eval { $db1 = AnyEvent::DBI::MySQL->connect('dbi:mysql:host=db1;port=3306;database=db', 'user', 'pass'); };
eval { $db2 = AnyEvent::DBI::MySQL->connect('dbi:mysql:host=db2;port=3306;database=db', 'user', 'pass'); }; # this db not worked!
eval { $db3 = AnyEvent::DBI::MySQL->connect('dbi:mysql:host=db1;port=3306;database=db', 'user', 'pass'); };
===
Could I send a patch that will fix this bug?