Oracle ping

Fellow DBIers,

When I wrote DBIx::Connector, I borrowed this code from DBIx::Class to “work around an issue”:

    sub ping {
        my ($self, $dbh) = @_;
        eval {
            local $dbh->{RaiseError} = 1;
            $dbh->do('select 1 from dual');
        };
        return $@ ? 0 : 1;
    }

The reason for this workaround is described in [this comment](https://rt.cpan.org/Ticket/Display.html?id=47005#txn-808055) from Peter Rabbitison:

> DBD::Oracle has some shutdown state in which it will return 1 on ping as long as the socket is still open. This however did not guarantee the server is any longer in a state to execute
> queries. So what happened was:
> 
> 1) the weird state is reached
> 2) a txn_do takes place and fails on the first sql command
> 3) the code calls ping() and gets a connected reply
> 4) the txn_do is not retried
> 5) ...
> 6) users lose profit

So a few questions about this:

1. Was this issue reported somewhere?
2. If so, was it fixed or otherwise worked around?
3. And if it was fixed, in what version of DBD::Oracle?

Thanks,

David