r73: Initial Import

1 files changed, 5 insertions, 1 deletions

diff --git a/dh_getopt.pl b/dh_getopt.pl
index f91a42e0..0c9bba0b 100755
--- a/dh_getopt.pl
+++ b/dh_getopt.pl
@@ -64,7 +64,7 @@ use Getopt::Long;
 Getopt::Long::config("bundling");
 
 # Parse options.
-GetOptions(
+$ret=GetOptions(
 	"v" => \$verbose,
 	"verbose" => \$verbose,
 
@@ -113,6 +113,10 @@ GetOptions(
 	"init-script=s" => \$init_script,
 );
 
+if (!$ret) {
+	$parse_error="exiting with unknown option.";
+}
+
 # Check to see if -V was specified. If so, but no parameters were passed,
 # the variable will be defined but empty.
 if (defined($version_info)) {