# HG changeset patch # User Heiko Schlittermann # Date 1228826116 -3600 # Node ID 1caa457b59d0bf7171e1e3d3f5fe436cd62eb232 # Parent a900786f21745a8d82505a2e6a85225c4e2ff0f3 - renamed diff -r a900786f2174 -r 1caa457b59d0 qq --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/qq Tue Dec 09 13:35:16 2008 +0100 @@ -0,0 +1,14 @@ +#! /usr/bin/perl + +use strict; +use warnings; +use Quancom; +use Data::Dumper; + + +MAIN: { + my $q = new Quancom $ARGV[0]; + my $r = $q->cmd("WB010000"); + die Dumper $r; +} + diff -r a900786f2174 -r 1caa457b59d0 tt --- a/tt Tue Dec 09 13:31:33 2008 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,14 +0,0 @@ -#! /usr/bin/perl - -use strict; -use warnings; -use Quancom; -use Data::Dumper; - - -MAIN: { - my $q = new Quancom $ARGV[0]; - my $r = $q->cmd("WB010000"); - die Dumper $r; -} -