Report an error if an unrecognized option is given to the gatekeeper

diff --git a/gatekeeper.pl b/gatekeeper.pl
index 34ed24c19088f3862029ea57c1e7b59db499308d..73b8a5a7b509f1e6196856b2b2c3b9fdeb742d94 100755 (executable)
--- a/gatekeeper.pl
+++ b/gatekeeper.pl
@@ -251,7 +251,7 @@ BEGIN {
             'nomail=i' => \$NOMAIL,
             'debug|d=i' => \$DEBUG,
             'testing-this-script' => \$TestingMode,
-           );
+           ) or pod2usage(-verbose => 0, -exitval => 2);
 
   constant->import(ZONE => $ZONE);
   constant->import(DEBUG => $DEBUG);