Fix undef warning in Vcs-Git handling

diff --git a/dgit b/dgit
index 3a79bb60b1a5bd7b884bbc91330908efa36a9a43..68d8b42d1da15ee921157f67f70aa7b793308f6a 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -1503,8 +1503,8 @@ sub clone ($) {
     }
     fetch_from_archive() or no_such_package;
     my $vcsgiturl = $dsc->{'Vcs-Git'};
-    $vcsgiturl =~ s/\s+-b\s+\S+//g;
     if (length $vcsgiturl) {
+       $vcsgiturl =~ s/\s+-b\s+\S+//g;
        runcmd @git, qw(remote add vcs-git), $vcsgiturl;
     }
     runcmd @git, qw(reset --hard), lrref();