Select Code to Download

use strict;
use diagnostics;
...
Gtk2->main();

END { }

$ perl -d:Trace script.pl >trace 2>&1
>> lib/script.pm:6198:         exit;
>> /usr/share/perl/5.22/File/Temp.pm:731:     local($., $@, $!, $^E, $
+?);
...
>> /usr/share/perl/5.22/File/Temp.pm:783:       if (defined $cwd_to_re
+move) {
>> /usr/share/perl/5.22/File/Temp.pm:795:         if exists $files_to_
+unlink{$$};
>> /usr/share/perl/5.22/File/Temp.pm:797:         if exists $dirs_to_u
+nlink{$$};

(gdb) run
Starting program: /usr/bin/perl script.pl
[Thread debugging using libthread_db enabled]
...
#13 0x00000000004c2eb4 in Perl_sv_clean_objs ()
#14 0x000000000043ee8b in perl_destruct ()
#15 0x000000000041caf3 in main ()

==12589== Process terminating with default action of signal 11 (SIGSEG
+V)
==12589==  General Protection Fault
==12589==    at 0x88B7820: signal_emit_unlocked_R (in /usr/lib/x86_64-
+linux-gnu/libgobject-2.0.so.0.4800.2)
...
==12589== For counts of detected and suppressed errors, rerun with: -v
==12589== Use --track-origins=yes to see where uninitialised values co
+me from
==12589== ERROR SUMMARY: 57 errors from 19 contexts (suppressed: 0 fro
+m 0)