diff options
Diffstat (limited to 'scripts/MarkdownBook/Document.pm')
| -rw-r--r-- | scripts/MarkdownBook/Document.pm | 4 |
1 files changed, 3 insertions, 1 deletions
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); |