avoid undef when dh is run w/o a sequence

1 files changed, 1 insertions, 1 deletions

diff --git a/dh b/dh
index 130d647e..f77e5944 100755
--- a/dh
+++ b/dh
@@ -335,7 +335,7 @@ my $sequence;
 if (! compat(7)) {
 	# From v8, the sequence is the very first parameter.
 	$sequence=shift @ARGV_orig;
-	if ($sequence=~/^-/) {
+	if (defined $sequence && $sequence=~/^-/) {
 		error "Unknown sequence $sequence (options should not come before the sequence)";
 	}
 }