examples/client
changeset 19 6acf8ea44e0a
parent 18 a6bc8818d069
child 20 94281ba012c8
--- 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;