diff -r a6bc8818d069 -r 6acf8ea44e0a examples/client --- 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;