git-svn: avoid warning when run without arguments

Eric Wong · Eric Wong · commit 540424b263d6 · 2007-12-19T00:33:15.000-08:00
While we're in the area, finish writing a halfway-written
comment describing what that block does...

Signed-off-by: Eric Wong &lt;normalperson@yhbt.net&gt;
diff --git a/git-svn.perl b/git-svn.perl
@@ -197,8 +197,8 @@ BEGIN
 	}
 };
 
-# make sure we're always running
-unless ($cmd =~ /(?:clone|init|multi-init)$/) {
+# make sure we're always running at the top-level working directory
+unless ($cmd && $cmd =~ /(?:clone|init|multi-init)$/) {
 	unless (-d $ENV{GIT_DIR}) {
 		if ($git_dir_user_set) {
 			die "GIT_DIR=$ENV{GIT_DIR} explicitly set, ",
