"Debugging fct_erreur"

lib/erreur.lib

@@ -90,7 +90,9 @@ case ${L_Type} in
 esac
 
 case "${L_Cmd}" in
-  "stop"    ) fct_message -hist "(${SH_SESSION_ID}) : fin - ${L_NumErr}"
+  "stop"    )
+        echo "*********** stop"
+        fct_message -hist "(${SH_SESSION_ID}) : fin - ${L_NumErr}"
         # Suppression des fichiers temporaire a la sortie du shell principal si mode debug pas activer
         if [ ${#SH_INDENT_MSG} -eq 0 -a ${SH_NIV_DEBUG} -eq 0 ]
         then
@@ -114,8 +116,12 @@ case "${L_Cmd}" in
         # Reduction de l indentation
         [ ${#SH_INDENT_MSG} -gt 0 ] && SH_INDENT_MSG=${SH_INDENT_MSG:0:$((${#SH_INDENT_MSG}-2))}
               exit ${L_CodRet} ;;
-  "continu" ) return 0 ;;
-  "*"       ) echo "eval ${L_Cmd}" ;;
+  "continu" )
+        echo "*********** continu"
+        return 0 ;;
+  "*"       )
+        echo "*********** All"
+        echo "eval ${L_Cmd}" ;;
 esac
 }
 typeset -Ffx fct_erreur