From 04d0684d2da625037e6472639d1884fb9a55ac83 Mon Sep 17 00:00:00 2001
From: P. J. McDermott <pjm@nac.net>
Date: Sun, 12 Aug 2012 10:08:43 -0400
Subject: Improve error handling.

---
(limited to 'scripts/MarkdownBook/Document/HTML.pm')

diff --git a/scripts/MarkdownBook/Document/HTML.pm b/scripts/MarkdownBook/Document/HTML.pm
index 9d61760..2852e8e 100644
--- a/scripts/MarkdownBook/Document/HTML.pm
+++ b/scripts/MarkdownBook/Document/HTML.pm
@@ -18,6 +18,7 @@ use warnings;
 
 use MarkdownBook::Document;
 use MarkdownBook::HTMLTree;
+use Carp;
 use Text::Markdown;
 use HTML::TreeBuilder;
 use HTML::Template;
@@ -143,7 +144,8 @@ sub _do_output_template
 
 	$doc_tmpl->param(BODY => $body);
 
-	open($doc_fh, '>', $self->file_path() . '.html');
+	open($doc_fh, '>', $self->file_path() . '.html')
+		or croak('Cannot open "' . $self->{'file'} . '" destination document');
 	$doc_tmpl->output(print_to => $doc_fh);
 	close($doc_fh);
 }
--
cgit v0.9.1