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.pm')

diff --git a/scripts/MarkdownBook/Document.pm b/scripts/MarkdownBook/Document.pm
index b84503d..fa47cdb 100644
--- a/scripts/MarkdownBook/Document.pm
+++ b/scripts/MarkdownBook/Document.pm
@@ -17,6 +17,7 @@ use strict;
 use warnings;
 
 use MarkdownBook::Section;
+use Carp;
 
 package MarkdownBook::Document;
 
@@ -143,7 +144,8 @@ sub parse
 	my $source_text;
 
 	open($source_fh, '<',
-		$self->{'book'}->dir() . '/' . $self->{'file'} . '.mdwn');
+		$self->{'book'}->dir() . '/' . $self->{'file'} . '.mdwn')
+		or croak('Cannot open "' . $self->{'file'} . '" source document');
 	$source_text = join('', <$source_fh>);
 	close($source_fh);
 
--
cgit v0.9.1