From 35874492b0785d2b3c2b254d667fe9bf753c6f5d Mon Sep 17 00:00:00 2001
From: svkalinin <svkalinin@samsonpost.ru>
Date: Fri, 18 Nov 2022 13:09:02 +0300
Subject: [PATCH] =?UTF-8?q?=D0=94=D0=BE=D0=B1=D0=B0=D0=B2=D0=BB=D0=B5?=
 =?UTF-8?q?=D0=BD=20=D0=B2=D1=8B=D0=B2=D0=BE=D0=B4=20=D1=81=D0=BE=D0=BE?=
 =?UTF-8?q?=D0=B1=D1=89=D0=B5=D0=BD=D0=B8=D0=B9=20=D0=BE=D0=B1=20=D0=BE?=
 =?UTF-8?q?=D1=88=D0=B8=D0=B1=D0=BA=D0=B5=20=D0=B2=20=D0=B4=D0=B8=D0=B0?=
 =?UTF-8?q?=D0=BB=D0=BE=D0=B3=D0=B5?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lib/git.tcl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lib/git.tcl b/lib/git.tcl
index 5e87062..e026186 100644
--- a/lib/git.tcl
+++ b/lib/git.tcl
@@ -110,6 +110,7 @@ namespace eval Git {
         }
         catch $cmd pipe
         if [regexp -nocase -- {^fatal:} $pipe match] {
+            ShowMessage "Command: '$cmd' error" $pipe
             return 
         }
         foreach line [split $pipe "\n"] {
@@ -133,6 +134,7 @@ namespace eval Git {
         catch $cmd pipe
         puts $cmd
         if [regexp -nocase -- {^fatal:} $pipe match] {
+            ShowMessage "Command: '$cmd' error" $pipe
             return 
         }
         foreach line [split $pipe "\n"] {
@@ -154,6 +156,7 @@ namespace eval Git {
         catch $cmd pipe
         puts $cmd
         if [regexp -nocase -- {^fatal:} $pipe match] {
+            ShowMessage "Command: '$cmd' error" $pipe
             return 
         }
         foreach line [split $pipe "\n"] {
@@ -191,6 +194,7 @@ namespace eval Git {
             catch $cmd pipe
             puts $pipe
             if [regexp -nocase -- {^fatal:} $pipe match] {
+                ShowMessage "Command: '$cmd' error" $pipe
                 return 
             }
             foreach line [split $pipe "\n"] {