From ab9e7059f5bcec4d747f70340899c5d3ee163477 Mon Sep 17 00:00:00 2001
From: Doug Freed <dwfreed@mtu.edu>
Date: Sun, 1 Mar 2015 05:33:30 +0400
Subject: More useful output on SIGALARM

---
 meta.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'meta.pl')

diff --git a/meta.pl b/meta.pl
index 52abde8..d00ca18 100755
--- a/meta.pl
+++ b/meta.pl
@@ -16,6 +16,7 @@ use Term::ANSIColor qw(:constants);
 use File::Monitor;
 use feature qw(say);
 use HTTP::Async;
+use Carp;
 
 $Data::Dumper::Useqq=1;
 
@@ -32,7 +33,7 @@ $::settingschanged = 0;
 
 ## debug variables. 0 to turn off debugging, else set it to a Term::ANSIColor constant.
 %::debugx = (
-  "dnsbl" => 0,
+  "dnsbl" => 0, # BLUE,
   "pingpong" => 0, #BLUE,
   "snotice" => YELLOW,
   "sync" => CYAN,
@@ -65,7 +66,8 @@ $SIG{__WARN__} = sub {
 
 sub alarmdeath
 {
-  die "SIG ALARM!!!\n";
+  $Data::Dumper::Useqq=1;
+  confess "SIG ALARM!!! last line: " . Dumper($::lastline);
 }
 $SIG{ALRM} = \&alarmdeath;
 alarm 300;
-- 
cgit v1.2.3