In option parser test `@ARGV' not `length @ARGV'. Closes:#795710.

diff --git a/debian/changelog b/debian/changelog
index 7a43446902726473e0b90a7f8c6ed597edff37aa..577b81a03b29142bb4b69b51069a3cd1cc5a6d50 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,6 +1,6 @@
 dgit (1.3) unstable; urgency=low
 
-  * 
+  * In option parser test `@ARGV' not `length @ARGV'.  Closes:#795710.
 
  --
 

diff --git a/dgit b/dgit
index eb9a97c3d0269604ca3bd1a1995510b79b4341ba..62cd049929cd7dd63a723f3902e26a14afd710d9 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -3161,7 +3161,7 @@ sub parseopts () {
        my ($what) = @_;
        @rvalopts = ($_);
        if (!defined $val) {
-           badusage "$what needs a value" unless length @ARGV;
+           badusage "$what needs a value" unless @ARGV;
            $val = shift @ARGV;
            push @rvalopts, $val;
        }