[perl-Glib] Improve diagnostics for errors in signal accumulators

[Torsten Schönfeld <tsch src gnome org>]

commit 67b3a1a7cd540a329def1ab841b209fe80de25d6
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Tue Sep 10 22:33:26 2013 +0200

    Improve diagnostics for errors in signal accumulators

 GType.xs |   10 ++++------
 1 files changed, 4 insertions(+), 6 deletions(-)
---
diff --git a/GType.xs b/GType.xs
index b06f203..b4130b7 100644
--- a/GType.xs
+++ b/GType.xs
@@ -1105,9 +1105,8 @@ gperl_real_signal_accumulator (GSignalInvocationHint *ihint,
        if (SvTRUE (ERRSV)) {
                warn ("### WOAH!  unhandled exception in a signal accumulator!\n"
                      "### this is really uncool, and for now i'm not even going to\n"
-                     "### try to recover.\n"
-                     "###    aborting");
-               abort ();
+                     "### try to recover.");
+               croak (Nullch);
        }
 
        if (n != 2) {
@@ -1119,10 +1118,9 @@ gperl_real_signal_accumulator (GSignalInvocationHint *ihint,
                      "### your sub returned %d value%s\n"
                      "###\n"
                      "### there's no resonable way to recover from this.\n"
-                     "### you must fix this code.\n"
-                     "###    aborting",
+                     "### you must fix this code",
                      n, n==1?"":"s");
-               abort ();
+               croak (Nullch);
        }
 
        SPAGAIN;