From ff2136452f36c2c798aa1ff911e827dea50700d8 Mon Sep 17 00:00:00 2001
From: Aaron Crane <arc@cpan.org>
Date: Thu, 5 Jan 2012 12:01:50 +0000
Subject: [PATCH] bin/bmark_pq: stop on invalid options

---
 bin/bmark_pq | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)
 mode change 100644 => 100755 bin/bmark_pq

diff --git a/bin/bmark_pq b/bin/bmark_pq
old mode 100644
new mode 100755
index b98101a..8c1d07b
--- a/bin/bmark_pq
+++ b/bin/bmark_pq
@@ -14,10 +14,11 @@ GetOptions ("m=s" => \@modules,
 	    "b=s" => \@benchmarks,
 	    "n=i" => \$n,
 	    "t=i" => \$timeout,
-	    "h"   => \$help);
+	    "h"   => \$help)
+	or usage(2);
 
 if ($help) {
-	usage();
+	usage(0);
 }
 
 if (defined $timeout) {
@@ -35,6 +36,7 @@ if (@benchmarks == 0) {
 }
 
 sub usage {
+	my ($status) = @_;
 	say <<END;
 Usage:
     $0  -n [exp] -t [timeout] -m [module 1] -m [module 2] -b [benchmark 1] ...
@@ -58,7 +60,7 @@ END
 	say "";
 	print_modules();
 	say "";
-	exit 0;
+	exit $status;
 }
 
 sub print_benchmarks {