From ea1964ef47a190211296ef15fe35ef2561dcf79b Mon Sep 17 00:00:00 2001
From: Marc Bernard <59966492+mbtools@users.noreply.github.com>
Date: Thu, 11 May 2023 16:35:30 +0200
Subject: [PATCH] Fix dump related to exit implementations (#6268)

Co-authored-by: abaplint[bot] <24845621+abaplint[bot]@users.noreply.github.com>
Co-authored-by: Lars Hvam <larshp@hotmail.com>
---
 src/exits/zcl_abapgit_exit.clas.abap | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/exits/zcl_abapgit_exit.clas.abap b/src/exits/zcl_abapgit_exit.clas.abap
index 88f5c5719..c34b79f6c 100644
--- a/src/exits/zcl_abapgit_exit.clas.abap
+++ b/src/exits/zcl_abapgit_exit.clas.abap
@@ -22,9 +22,18 @@ CLASS zcl_abapgit_exit IMPLEMENTATION.
 
   METHOD get_instance.
 
+    DATA lv_class_name TYPE string.
+
+    lv_class_name = 'ZCL_ABAPGIT_USER_EXIT'.
+
+    IF zcl_abapgit_factory=>get_environment( )->is_merged( ) = abap_true.
+      " Prevent accidental usage of exit handlers in the developer version
+      lv_class_name = |\\PROGRAM={ sy-repid }\\CLASS={ lv_class_name }|.
+    ENDIF.
+
     IF gi_exit IS INITIAL.
       TRY.
-          CREATE OBJECT gi_exit TYPE ('ZCL_ABAPGIT_USER_EXIT').
+          CREATE OBJECT gi_exit TYPE (lv_class_name).
         CATCH cx_sy_create_object_error ##NO_HANDLER.
       ENDTRY.
     ENDIF.