From 5aacc6b0153b13453e1b63323b5f9c7ec5d81662 Mon Sep 17 00:00:00 2001
From: bubnikv <bubnikv@gmail.com>
Date: Tue, 8 Nov 2016 11:15:09 +0100
Subject: [PATCH] Extended exit report when catching an exception under a
 broken Strawberry Perl.

---
 xs/src/libslic3r/utils.cpp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/xs/src/libslic3r/utils.cpp b/xs/src/libslic3r/utils.cpp
index ebd2a97b4..3f340e04a 100644
--- a/xs/src/libslic3r/utils.cpp
+++ b/xs/src/libslic3r/utils.cpp
@@ -21,6 +21,9 @@ void confess_at(const char *file, int line, const char *func, const char *format
     vsprintf(dest, format, argptr);
     va_end(argptr);
 
+    char filelinefunc[1024*8];
+    sprintf(filelinefunc, "\r\nin function: %s\r\nfile: %s\r\nline: %d\r\n", func, file, line);
+    strcat(dest, filelinefunc);
     strcat(dest, "\r\n Closing the application.\r\n");
     #ifdef WIN32
     ::MessageBoxA(NULL, dest, "Slic3r Prusa Edition", MB_OK | MB_ICONERROR);