fixed bug where Perl would close the DBD::Pg file descriptor after it had been used with the event loop