From 5110ea8338b80b0968db022a549c9eed487a3378 Mon Sep 17 00:00:00 2001
From: Adam Spiers <stow@adamspiers.org>
Date: Mon, 9 Jan 2012 21:11:58 +0000
Subject: [PATCH] Add stacktrace to internal error report to aid debugging.

---
 lib/Stow.pm.in | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lib/Stow.pm.in b/lib/Stow.pm.in
index cf81d9b..2c393f1 100755
--- a/lib/Stow.pm.in
+++ b/lib/Stow.pm.in
@@ -35,7 +35,7 @@ rebuild the target tree.
 use strict;
 use warnings;
 
-use Carp qw(carp cluck croak confess);
+use Carp qw(carp cluck croak confess longmess);
 use File::Spec;
 use POSIX qw(getcwd);
 
@@ -1964,8 +1964,11 @@ sub do_rmdir {
 sub internal_error {
     my ($format, @args) = @_;
     my $error = sprintf($format, @args);
+    my $stacktrace = Carp::longmess();
     die <<EOF;
-$ProgramName: INTERNAL ERROR: $error
+
+$ProgramName: INTERNAL ERROR: $error$stacktrace
+
 This _is_ a bug. Please submit a bug report so we can fix it! :-)
 See http://www.gnu.org/software/stow/ for how to do this.
 EOF