Unit test to verify whether Slic3r would hang when croaking from

a C++ exception handler. This is an unfortunate error in some
Strawberry Perl distributions.

xs/xsp/XS.xsp

@@ -28,4 +28,12 @@ FORK_NAME()
         RETVAL = newSVpv(SLIC3R_FORK_NAME, 0);
     OUTPUT: RETVAL
 
+void
+xspp_test_croak_hangs_on_strawberry()
+    CODE:
+    	try {
+    		throw 1;
+    	} catch (...) {
+    		croak("xspp_test_croak_hangs_on_strawberry: exception catched\n");
+    	}
 %}