From 695fd015cb0b5da70ee0bffb569e97faecce0951 Mon Sep 17 00:00:00 2001
From: larshp <larshp@hotmail.com>
Date: Thu, 5 Jan 2017 11:43:22 +0000
Subject: [PATCH] CLAS: fix dump

---
 src/zabapgit_object_clas.prog.abap | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/zabapgit_object_clas.prog.abap b/src/zabapgit_object_clas.prog.abap
index 1adb24ba0..5b3b71791 100644
--- a/src/zabapgit_object_clas.prog.abap
+++ b/src/zabapgit_object_clas.prog.abap
@@ -770,7 +770,9 @@ CLASS lcl_object_clas IMPLEMENTATION.
     ELSEIF lines( rt_source ) = 1.
       READ TABLE rt_source INDEX 1 INTO lv_line1.
       ASSERT sy-subrc = 0.
-      IF lv_line1 IS INITIAL OR lv_line1(3) = '*"*'.
+      IF lv_line1 IS INITIAL
+          OR ( strlen( lv_line1 ) >= 3 AND lv_line1(3) = '*"*' )
+          OR ( strlen( lv_line1 ) = 1 AND lv_line1(1) = '*' ).
         mv_skip_testclass = abap_true.
       ENDIF.
     ELSEIF lines( rt_source ) = 0.