--- 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;