X-Git-Url: https://git.madduck.net/code/myrepos.git/blobdiff_plain/7d95a4a9b0357e85eb8b15ebf04d2e4188b4479c..c4d33b212288918c9e1b4c4e56dc8ddd07bc4089:/mr?ds=inline

diff --git a/mr b/mr
index 9501322..be7d283 100755
--- a/mr
+++ b/mr
@@ -343,6 +343,11 @@ sub rcs_test { #{{{
 	print "mr $action: running rcs test >>$test<<\n" if $verbose;
 	my $rcs=`$test`;
 	chomp $rcs;
+	if ($rcs=~/\n/s) {
+		$rcs=~s/\n/, /g;
+		print STDERR "mr $action: found multiple possible repository types ($rcs) for $topdir$subdir\n";
+		return undef;
+	}
 	if (! length $rcs) {
 		return undef;
 	}
@@ -383,11 +388,6 @@ sub action { #{{{
 		}
 
 		$dir=~s/^(.*)\/[^\/]+\/?$/$1/;
-
-		if (! -d $dir) {
-			print "mr $action: creating parent directory $dir\n" if $verbose;
-			system("mkdir", "-p", $dir);
-		}
 	}
 	elsif ($action =~ /update/) {
 		if (! -d $dir) {
@@ -396,7 +396,6 @@ sub action { #{{{
 	}
 
 	$ENV{MR_REPO}=$dir;
-
 	my $skiptest=findcommand("skip", $dir, $topdir, $subdir);
 	my $command=findcommand($action, $dir, $topdir, $subdir);
 
@@ -420,7 +419,12 @@ sub action { #{{{
 			return SKIPPED;
 		}
 	}
-	
+
+	if ($action eq 'checkout' && ! -d $dir) {
+		print "mr $action: creating parent directory $dir\n" if $verbose;
+		system("mkdir", "-p", $dir);
+	}
+
 	if (! $no_chdir && ! chdir($dir)) {
 		print STDERR "mr $action: failed to chdir to $dir: $!\n";
 		return FAILED;