Deep recursion when maxclients is reached and reconnect, name, on_connect parameters used

[vsespb]

use strict;
use warnings;
use Redis;
Redis->new(
    name          => "test",
    reconnect     => 20,
    every         => 1000,
    on_connect => sub {
        my ( $redis ) = @_;
        $redis->select(1);
    },
);

Deep recursion on subroutine "Try::Tiny::try" at /usr/local/share/perl/5.14.2/Redis.pm line 267.
Deep recursion on subroutine "Redis::connect" at /usr/local/share/perl/5.14.2/Redis.pm line 264.
Deep recursion on subroutine "Redis::__build_sock" at /usr/local/share/perl/5.14.2/Redis.pm line 602.
Deep recursion on subroutine "Redis::__on_connection" at /usr/local/share/perl/5.14.2/Redis.pm line 628.
Deep recursion on subroutine "Try::Tiny::try" at /usr/local/share/perl/5.14.2/Redis.pm line 653.
Deep recursion on subroutine "Redis::__std_cmd" at /usr/local/share/perl/5.14.2/Redis.pm line 202.
Deep recursion on subroutine "Redis::__with_reconnect" at /usr/local/share/perl/5.14.2/Redis.pm line 245.
Deep recursion on anonymous subroutine at /usr/local/share/perl/5.14.2/Redis.pm line 676.
Deep recursion on subroutine "Redis::select" at pp.pl line 10.
Deep recursion on subroutine "Redis::__std_cmd" at /usr/local/share/perl/5.14.2/Redis.pm line 186.
Deep recursion on subroutine "Redis::__with_reconnect" at /usr/local/share/perl/5.14.2/Redis.pm line 245.
Deep recursion on subroutine "Try::Tiny::try" at /usr/local/share/perl/5.14.2/Redis.pm line 267.

steps to reproduce:

set maxclients on server to 1.
in one terminal connect to server using redis-cli
in another terminal run this script.

note that without name parameter works ok.