From 3086ab90f8b9da9679b05a6dd41be224d39b6f4c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Christian=20G=C3=BCnter?= <christianguenter@googlemail.com>
Date: Thu, 4 Jan 2018 13:02:34 +0000
Subject: [PATCH] downport

---
 src/zabapgit_services_git.prog.abap | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/src/zabapgit_services_git.prog.abap b/src/zabapgit_services_git.prog.abap
index 27e5649e9..912319729 100644
--- a/src/zabapgit_services_git.prog.abap
+++ b/src/zabapgit_services_git.prog.abap
@@ -269,7 +269,8 @@ CLASS lcl_services_git IMPLEMENTATION.
   METHOD delete_tag.
 
     DATA: lo_repo TYPE REF TO lcl_repo_online,
-          ls_tag  TYPE lcl_git_branch_list=>ty_git_branch.
+          ls_tag  TYPE lcl_git_branch_list=>ty_git_branch,
+          lv_text TYPE string.
 
     lo_repo ?= lcl_app=>repo_srv( )->get( iv_key ).
 
@@ -282,9 +283,13 @@ CLASS lcl_services_git IMPLEMENTATION.
       io_repo = lo_repo
       is_tag  = ls_tag ).
 
-    MESSAGE |Tag { replace( val  = ls_tag-name
-                            sub  = zif_abapgit_definitions=>gc_tag_prefix
-                            with = '' ) } deleted| TYPE 'S'.
+    REPLACE FIRST OCCURRENCE OF zif_abapgit_definitions=>gc_tag_prefix
+            IN ls_tag-name
+            WITH ''.
+
+    lv_text = |Tag { ls_tag-name } deleted| ##NO_TEXT.
+
+    MESSAGE lv_text TYPE 'S'.
 
   ENDMETHOD.