Why db ping doesn't work anymore

[Frank Wu]

Hello everyone,

I've a perl application, open $dbh and keep it. Here is how i open $dbh,
using DBI,DBD::ODBC, and openlink  UDBC

        if ( defined ( $dbh ) && $dbh-ping() ) {
                #still connected
                return $dbh;
        } elsif ( defined ( $dbh ) ) {
                #connection lost, disconnect and reopen
                warn "connection lost" ;
        }
        return &new_connection();

It's working on DBI 1.13, DBD::ODBC 0.28.

But after i upgraded DBI to 1.21 and DBD::ODBC to 0.41, $dbh->ping() always
return 0 no matther whether connection is lost or not.  

Can anyone tell me what causes ping method changed.

Thanks

Frank