diff options
author | Junio C Hamano <junkio@cox.net> | 2005-11-25 16:35:20 -0800 |
---|---|---|
committer | Junio C Hamano <junkio@cox.net> | 2005-11-25 16:35:20 -0800 |
commit | 93dcab2937624ebb97f91807576cddb242a55a46 (patch) | |
tree | 8d16464f16866a7f215401a95f8bdaa124799d49 /git-mv.perl | |
parent | 52b6536c624b4998b3730b55b9bc3d7c4e1071a4 (diff) | |
parent | 2a1ddc58e4d2220feea7eba4623dac07a0f83f94 (diff) | |
download | git-93dcab2937624ebb97f91807576cddb242a55a46.tar.gz |
GIT 0.99.9kv0.99.9k
This is not 1.0rc4 yet, but to push the recent fixes out.
Signed-off-by: Junio C Hamano <junkio@cox.net>
Diffstat (limited to 'git-mv.perl')
-rwxr-xr-x | git-mv.perl | 25 |
1 files changed, 17 insertions, 8 deletions
diff --git a/git-mv.perl b/git-mv.perl index a21d87eea8..bf54c38413 100755 --- a/git-mv.perl +++ b/git-mv.perl @@ -103,13 +103,22 @@ while(scalar @srcArgs > 0) { $bad = "bad source '$src'"; } + $safesrc = quotemeta($src); + @srcfiles = grep /^$safesrc(\/|$)/, @allfiles; + $overwritten{$dst} = 0; if (($bad eq "") && -e $dst) { $bad = "destination '$dst' already exists"; - if (-f $dst && $opt_f) { - print "Warning: $bad; will overwrite!\n"; - $bad = ""; - $overwritten{$dst} = 1; + if ($opt_f) { + # only files can overwrite each other: check both source and destination + if (-f $dst && (scalar @srcfiles == 1)) { + print "Warning: $bad; will overwrite!\n"; + $bad = ""; + $overwritten{$dst} = 1; + } + else { + $bad = "Can not overwrite '$src' with '$dst'"; + } } } @@ -118,8 +127,6 @@ while(scalar @srcArgs > 0) { } if ($bad eq "") { - $safesrc = quotemeta($src); - @srcfiles = grep /^$safesrc(\/|$)/, @allfiles; if (scalar @srcfiles == 0) { $bad = "'$src' not under version control"; } @@ -166,10 +173,12 @@ while(scalar @srcs > 0) { push @deletedfiles, @srcfiles; if (scalar @srcfiles == 1) { + # $dst can be a directory with 1 file inside if ($overwritten{$dst} ==1) { - push @changedfiles, $dst; + push @changedfiles, $dstfiles[0]; + } else { - push @addedfiles, $dst; + push @addedfiles, $dstfiles[0]; } } else { |