fix unpack not ok, close #288

src/zabapgit.prog.abap

@@ -3,7 +3,7 @@ REPORT zabapgit LINE-SIZE 100.
 * See http://www.abapgit.org
 
 CONSTANTS: gc_xml_version  TYPE string VALUE 'v1.0.0',      "#EC NOTEXT
-           gc_abap_version TYPE string VALUE 'v1.15.9'.     "#EC NOTEXT
+           gc_abap_version TYPE string VALUE 'v1.15.10'.    "#EC NOTEXT
 
 ********************************************************************************
 * The MIT License (MIT)

src/zabapgit_git.prog.abap

@@ -1476,6 +1476,14 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
     LOOP AT it_blobs ASSIGNING <ls_blob>.
       CLEAR ls_object.
       ls_object-sha1 = lcl_hash=>sha1( iv_type = gc_type-blob iv_data = <ls_blob>-data ).
+
+      READ TABLE lt_objects WITH KEY type = gc_type-blob sha1 = ls_object-sha1
+        TRANSPORTING NO FIELDS.
+      IF sy-subrc = 0.
+* two identical files added at the same time, only add one blob to the pack
+        CONTINUE.
+      ENDIF.
+
       ls_object-type = gc_type-blob.
       ASSERT NOT <ls_blob>-data IS INITIAL.
       ls_object-data = <ls_blob>-data.
@@ -1554,6 +1562,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
     LOOP AT lt_stage ASSIGNING <ls_stage>.
       CASE <ls_stage>-method.
         WHEN lcl_stage=>c_method-add.
+
           APPEND <ls_stage>-file TO lt_blobs.
 
           READ TABLE lt_expanded ASSIGNING <ls_exp> WITH KEY

src/zabapgit_object_acid.prog.abap

@@ -132,7 +132,14 @@ CLASS lcl_object_acid IMPLEMENTATION.
   ENDMETHOD.                    "lif_object~exists
 
   METHOD lif_object~jump.
-    _raise 'todo, jump, ACID'.
+
+    CALL FUNCTION 'RS_TOOL_ACCESS'
+      EXPORTING
+        operation     = 'SHOW'
+        object_name   = ms_item-obj_name
+        object_type   = 'ACID'
+        in_new_window = abap_true.
+
   ENDMETHOD.                    "lif_object~jump
 
 ENDCLASS.                    "lcl_object_acid IMPLEMENTATION