Fix args-checking.
authorMike Taylor <mike@indexdata.com>
Wed, 31 Oct 2007 16:07:40 +0000 (16:07 +0000)
committerMike Taylor <mike@indexdata.com>
Wed, 31 Oct 2007 16:07:40 +0000 (16:07 +0000)
bin/irspy-stats.pl

index a9b9ade..5e03c7a 100755 (executable)
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-# $Id: irspy-stats.pl,v 1.4 2007-01-24 09:28:02 mike Exp $
+# $Id: irspy-stats.pl,v 1.5 2007-10-31 16:07:40 mike Exp $
 #
 #      perl -I ../lib irspy-stats.pl localhost:8018/IR-Explain---1 "net.host=*indexdata*"
 
@@ -8,7 +8,7 @@ use strict;
 use warnings;
 use ZOOM::IRSpy;
 
-if (@ARGV > 2) {
+if (@ARGV < 2) {
     print STDERR "Usage: $0 [CQL-query]\n";
     exit 1;
 }