From 97b338e0de2f8d60bb9de1d7fdf5574d092fa736 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Sat, 24 Feb 2007 01:26:32 +0000 Subject: [PATCH] Get backtrace if program dies. --- bin/irspy.pl | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/bin/irspy.pl b/bin/irspy.pl index d7fda06..fef62d1 100755 --- a/bin/irspy.pl +++ b/bin/irspy.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl -w -# $Id: irspy.pl,v 1.22 2007-02-23 16:44:50 mike Exp $ +# $Id: irspy.pl,v 1.23 2007-02-24 01:26:32 mike Exp $ # # Run like this: # YAZ_LOG=irspy,irspy_test IRSPY_SAVE_XML=1 perl -I../lib irspy.pl -t Quick localhost:8018/IR-Explain---1 z3950.loc.gov:7090/Voyager bagel.indexdata.dk/gils bagel.indexdata.dk:210/marc @@ -16,6 +16,12 @@ use strict; use warnings; use Getopt::Std; use ZOOM::IRSpy::Web; +use Carp; + +local $SIG{__DIE__} = sub { + my($msg) = @_; + confess($msg); +}; my %opts; if (!getopts('wt:af:', \%opts) || @ARGV < 1) { -- 1.7.10.4