# HG changeset patch
# User Heiko Schlittermann <hs@schlittermann.de>
# Date 1233028410 -3600
# Node ID e3f3806a12ec3c7ef4092acf86380e85dc26aaf3
# Parent  a48c1d372ad4c90ea92b163eb15a62ad69adfb8b
fix: set always croak()ed

diff -r a48c1d372ad4 -r e3f3806a12ec lib/Quancom.pm
--- a/lib/Quancom.pm	Tue Jan 27 04:13:21 2009 +0100
+++ b/lib/Quancom.pm	Tue Jan 27 04:53:30 2009 +0100
@@ -83,8 +83,8 @@
 
 sub set {
     my $self = shift;
+    croak "bad usage" if @_ < 2;
 
-    croak "bad usage";
     my $value = pop @_ ? 1 : 0;
     my @bits   = map { $_ - 1 } @_;
     my @groups = map { 0 } 0 .. 7;