-# $Id: Ping.pm,v 1.19 2007-01-20 09:53:40 mike Exp $
+# $Id: Ping.pm,v 1.20 2007-02-23 15:03:44 mike Exp $
# See the "Main" test package for documentation
my($conn) = @_;
$conn->irspy_connect(undef, {},
- ZOOM::Event::RECV_APDU, \&connected,
+ ZOOM::Event::ZEND, \&connected,
exception => \¬_connected);
}