--- a/examples/client Tue Jan 06 15:07:03 2009 +0100
+++ b/examples/client Tue Jan 06 22:33:39 2009 +0100
@@ -12,9 +12,11 @@
my $q = new Quancom $ARGV[0];
my $r;
+ $q->set(1, 8 => 1)->ok or die $q->last_result->error_message;
+ $q->set(2, 64 => 1)->ok or die $q->last_result->error_message;
# reset
- $q->full_reset->ok or die $q->last_result->error_message;
+ $q->full_reset->ok or warn "err: " . $q->last_result->error_message . "\n";
# does not work
#$q->cmd("RB 0007")->ok or die $q->last_result->error_message;