die("bug"): report bugs consistently

diff --git a/git-svn.perl b/git-svn.perl
index 05eced06cde8a1ff83262d452dc8edbcc1f3dea8..f609e54ce3b3d5a0f004de6d40390a9fdae4f6a9 100755 (executable)
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -507,7 +507,10 @@ sub init_subdir {
 
 sub cmd_clone {
        my ($url, $path) = @_;
-       if (!defined $path &&
+       if (!$url) {
+               die "SVN repository location required ",
+                   "as a command-line argument\n";
+       } elsif (!defined $path &&
            (defined $_trunk || @_branches || @_tags ||
             defined $_stdlayout) &&
            $url !~ m#^[a-z\+]+://#) {