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

diff --git a/scripts/MarkdownBook/Document/Txt.pm b/scripts/MarkdownBook/Document/Txt.pm
index 6c7f038..cf65d92 100644
--- a/scripts/MarkdownBook/Document/Txt.pm
+++ b/scripts/MarkdownBook/Document/Txt.pm
@@ -17,6 +17,7 @@ use strict;
 use warnings;
 
 use MarkdownBook::Document;
+use Carp;
 
 package MarkdownBook::Document::Txt;
 
@@ -28,7 +29,8 @@ sub output
 	my $out_fh;
 
 	open($out_fh, '>',
-		$self->{'book'}->dir() . '/' . $self->{'file'} . '.txt');
+		$self->{'book'}->dir() . '/' . $self->{'file'} . '.txt')
+		or croak('Cannot open "' . $self->{'file'} . '" destination document');
 
 	# Print document title.
 	print($out_fh $self->{'title'} . "\n" .
--
cgit v0.9.1