diff --git a/src/zabapgit_background.prog.abap b/src/zabapgit_background.prog.abap index f50c6ebb0..32ef0b5aa 100644 --- a/src/zabapgit_background.prog.abap +++ b/src/zabapgit_background.prog.abap @@ -128,6 +128,7 @@ CLASS lcl_background IMPLEMENTATION. lo_stage TYPE REF TO zcl_abapgit_stage. FIELD-SYMBOLS: LIKE LINE OF lt_changed, + LIKE LINE OF ls_files-remote, LIKE LINE OF ls_files-local. @@ -174,6 +175,21 @@ CLASS lcl_background IMPLEMENTATION. iv_data = -file-data ). APPEND TO ls_user_files-local. + + LOOP AT ls_files-remote ASSIGNING + WHERE filename = -file-filename + AND path <> -file-path + AND filename <> 'package.devc.xml'. + WRITE: / 'rm' ##NO_TEXT, + -path, + -filename. + +* rm old file when object has moved + lo_stage->rm( + iv_path = -path + iv_filename = -filename ). + EXIT. " assumption: only one file + ENDLOOP. ENDIF. ENDLOOP.