# HG changeset patch
# User Heiko Schlittermann <hs@schlittermann.de>
# Date 1229440123 -3600
# Node ID cfc898fd62f10feae8990d514c953c1518b92cf1
# Parent  1aa41c487e44dd5382c404812873dea2d34aed7c
Bit-Setzen.

diff -r 1aa41c487e44 -r cfc898fd62f1 Makefile.PL
--- a/Makefile.PL	Tue Dec 09 23:26:57 2008 +0100
+++ b/Makefile.PL	Tue Dec 16 16:08:43 2008 +0100
@@ -1,3 +1,6 @@
+# The source for this stuff could be found at the following place:
+# https://keller.schlittermann.de/hg/quancom
+
 use ExtUtils::MakeMaker;
 
 WriteMakefile (
diff -r 1aa41c487e44 -r cfc898fd62f1 examples/example
--- 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;
+
 }