fixed perl checks for if a conn is a mongos conn Tokutek/mongo#426