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

diff --git a/scripts/MarkdownBook/Book.pm b/scripts/MarkdownBook/Book.pm
index 572fb53..4f30afb 100644
--- a/scripts/MarkdownBook/Book.pm
+++ b/scripts/MarkdownBook/Book.pm
@@ -116,7 +116,7 @@ sub create_documents
 	# Create chapter documents.
 	$i = 0;
 	open($series_fh, '<', $self->{'dir'} . '/chapters')
-		or croak('Cannot open chapters file');
+		or Carp::croak('Cannot open chapters file');
 	while (<$series_fh>) {
 		chomp($_);
 		($file, $title) = split(/[ \t]+/, $_, 2);
@@ -134,7 +134,7 @@ sub create_documents
 	@letters = ('A' .. 'Z');
 	if (-e $self->{'dir'} . '/appendices') {
 		open($series_fh, '<', $self->{'dir'} . '/apendices')
-			or croak('Cannot open appendices file');
+			or Carp::croak('Cannot open appendices file');
 		while (<$series_fh>) {
 			chomp($_);
 			($file, $title) = split(/[ \t]+/, $_, 2);
@@ -198,13 +198,13 @@ sub _do_subst_macro
 		return $self->_do_gen_toc();
 	} elsif ($macro eq 'sectlink') {
 		if (@args != 1) {
-			carp('Invalid arguments to "sectlink" macro');
+			Carp::carp('Invalid arguments to "sectlink" macro');
 		} else {
 			$sec = $self->{'sections_by_id'}->{$args[0]};
 			return '[§ ' . $sec->number() . '][' . $sec->id() . ']';
 		}
 	} else {
-		carp("Unrecognized macro \"$macro\"");
+		Carp::carp("Unrecognized macro \"$macro\"");
 	}
 }
 
--
cgit v0.9.1