From 2fb568f4f70d00ea50eecf25cb36689d738cdfb7 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 31 Oct 2007 16:07:40 +0000 Subject: [PATCH 1/1] Fix args-checking. --- bin/irspy-stats.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/bin/irspy-stats.pl b/bin/irspy-stats.pl index a9b9ade..5e03c7a 100755 --- a/bin/irspy-stats.pl +++ b/bin/irspy-stats.pl @@ -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; } -- 1.7.10.4