From b2b307a2b170755a7218703cb4f761f58270a973 Mon Sep 17 00:00:00 2001
From: P. J. McDermott <pjm@nac.net>
Date: Sun, 12 Aug 2012 14:31:30 -0400
Subject: Prepend namespace to Carp subroutine calls.

---
(limited to 'scripts/MarkdownBook/Document')

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" .
--
cgit v0.9.1