|
@@ -56,10 +56,9 @@ Options:
|
|
|
}
|
|
}
|
|
|
|
|
|
|
|
my $binary_only=0;
|
|
my $binary_only=0;
|
|
|
-my $want_help=0;
|
|
|
|
|
my ($bd_value, $bc_value);
|
|
my ($bd_value, $bc_value);
|
|
|
if (!GetOptions('B' => \$binary_only,
|
|
if (!GetOptions('B' => \$binary_only,
|
|
|
- 'help|h' => \$want_help,
|
|
|
|
|
|
|
+ 'help|h' => sub { usage(); exit(0); },
|
|
|
'version' => \&version,
|
|
'version' => \&version,
|
|
|
'd=s' => \$bd_value,
|
|
'd=s' => \$bd_value,
|
|
|
'c=s' => \$bc_value,
|
|
'c=s' => \$bc_value,
|
|
@@ -67,10 +66,6 @@ if (!GetOptions('B' => \$binary_only,
|
|
|
usage();
|
|
usage();
|
|
|
exit(2);
|
|
exit(2);
|
|
|
}
|
|
}
|
|
|
-if ($want_help) {
|
|
|
|
|
- usage();
|
|
|
|
|
- exit(0);
|
|
|
|
|
-}
|
|
|
|
|
|
|
|
|
|
my $controlfile = shift || "debian/control";
|
|
my $controlfile = shift || "debian/control";
|
|
|
|
|
|