@@ -1677,11 +1677,18 @@ ClassMethod RunGitCommandWithInput(command As %String, inFile As %String = "", O
1677
1677
set modification = ##class (SourceControl.Git.Modification ).%New ()
1678
1678
set modification .changeType = $piece (file , $c (9 ), 1 )
1679
1679
1680
- set modification .externalName = $zstrip ($piece (file , $c (9 ),2 )," <W" )
1681
- if (modification .changeType '= " A" ){
1680
+ set modification .externalName = $zstrip ($piece (file , $c (9 ), 2 )," <W" )
1681
+ if $extract (modification .changeType ) = " R" {
1682
+ set modification .changeType = " D"
1682
1683
set modification .internalName = ##class (SourceControl.Git.Utils ).NameToInternalName (modification .externalName ,,0 )
1683
- }
1684
- else {
1684
+ set files ($increment (files )) = modification
1685
+ set modification = ##class (SourceControl.Git.Modification ).%New ()
1686
+ set modification .changeType = " A"
1687
+ set modification .internalName = " "
1688
+ set modification .externalName = $zstrip ($piece (file , $c (9 ), 3 )," <W" )
1689
+ } elseif (modification .changeType '= " A" ){
1690
+ set modification .internalName = ##class (SourceControl.Git.Utils ).NameToInternalName (modification .externalName ,,0 )
1691
+ } else {
1685
1692
set modification .internalName = " "
1686
1693
}
1687
1694
set files ($increment (files )) = modification
0 commit comments