diff options
Diffstat (limited to 'scripts/MarkdownBook/Document')
| -rw-r--r-- | scripts/MarkdownBook/Document/html.pm | 2 | ||||
| -rw-r--r-- | scripts/MarkdownBook/Document/txt.pm | 3 |
2 files changed, 3 insertions, 2 deletions
diff --git a/scripts/MarkdownBook/Document/html.pm b/scripts/MarkdownBook/Document/html.pm index 5ee1e79..60f22c7 100644 --- a/scripts/MarkdownBook/Document/html.pm +++ b/scripts/MarkdownBook/Document/html.pm @@ -145,7 +145,7 @@ sub _do_output_template $doc_tmpl->param(BODY => $body); open($doc_fh, '>', $self->file_path() . '.html') - or croak('Cannot open "' . $self->{'file'} . '" destination document'); + or Carp::croak('Cannot open "' . $self->{'file'} . '" destination document'); $doc_tmpl->output(print_to => $doc_fh); close($doc_fh); } diff --git a/scripts/MarkdownBook/Document/txt.pm b/scripts/MarkdownBook/Document/txt.pm index 3ffd9cd..f150477 100644 --- a/scripts/MarkdownBook/Document/txt.pm +++ b/scripts/MarkdownBook/Document/txt.pm @@ -30,7 +30,8 @@ sub output open($out_fh, '>', $self->{'book'}->dir() . '/' . $self->{'file'} . '.txt') - or croak('Cannot open "' . $self->{'file'} . '" destination document'); + or Carp::croak('Cannot open "' . $self->{'file'} . + '" destination document'); # Print document title. print($out_fh $self->{'title'} . "\n" . |