changeset 6 | cfc898fd62f1 |
parent 4 | 6f1e9c4bee3c |
child 7 | 9c3e112933ae |
--- a/examples/example Tue Dec 09 23:26:57 2008 +0100 +++ b/examples/example Tue Dec 16 16:08:43 2008 +0100 @@ -10,10 +10,12 @@ my $q = new Quancom $ARGV[0]; my $r; - $r = $q->cmd("WB0101FF"); + # $r = $q->cmd("WB0101FF"); + $r = $q->cmd("WB010001"); # sollte(!) gehen print $r->error_message, "\n" if $r->error; print $r->ok; print $q->last_result->ok; + }