From 1200420687a2d5e317fd3ddaa2b865317e3e5b0c Mon Sep 17 00:00:00 2001
From: Adam Spiers <stow@adamspiers.org>
Date: Mon, 9 Jan 2012 17:52:11 +0000
Subject: [PATCH] Link to website to encourage users to report bugs.

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

diff --git a/lib/Stow.pm.in b/lib/Stow.pm.in
index 416c956..cf81d9b 100755
--- a/lib/Stow.pm.in
+++ b/lib/Stow.pm.in
@@ -1963,8 +1963,12 @@ sub do_rmdir {
 #============================================================================
 sub internal_error {
     my ($format, @args) = @_;
-    die "$ProgramName: INTERNAL ERROR: " . sprintf($format, @args) . "\n",
-        "This _is_ a bug. Please submit a bug report so we can fix it:-)\n";
+    my $error = sprintf($format, @args);
+    die <<EOF;
+$ProgramName: INTERNAL ERROR: $error
+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
 }
 
 =head1 BUGS