include-binaries handling: Tiny refactoring

Hoist the !@bpath check so we can add another statement here with
different behaviour.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

1 files changed, 4 insertions, 2 deletions

diff --git a/dgit b/dgit
index c8c0fc4..188c20c 100755
--- a/dgit
+++ b/dgit
@@ -6245,8 +6245,10 @@ END
 		};
 		$wrong->(f_ "forbidden path component '%s'", $ent)
 		  if grep { $_ eq $ent } '', '.', '..';
-		$wrong->(f_ "path starts with '%s'", $ent)
-		  if !@bpath && grep { $_ eq $ent } qw(debian .git);
+		if (!@bpath) { # check first component
+		  $wrong->(f_ "path starts with '%s'", $ent)
+		    if grep { $_ eq $ent } qw(debian .git);
+		}
 		push @bpath, $ent;
 		$bpath_chk = join '/', @bpath;
 		if (!lstat "$maindir/$bpath_chk") {