From c07faea2674fb796a9c1547fe924a798fbe084b3 Mon Sep 17 00:00:00 2001
From: P. J. McDermott <pjm@nac.net>
Date: Mon, 10 Sep 2012 22:12:56 -0400
Subject: Ensure that book format RE matches entire string.

---
(limited to 'lib/Text')

diff --git a/lib/Text/MarkdownBook/Book.pm b/lib/Text/MarkdownBook/Book.pm
index 137a9fa..fa041c5 100644
--- a/lib/Text/MarkdownBook/Book.pm
+++ b/lib/Text/MarkdownBook/Book.pm
@@ -30,7 +30,7 @@ sub new
 	$self = {};
 	bless($self, $class);
 
-	unless ($format =~ m/^[a-z]+/) {
+	unless ($format =~ m/^[a-z]+$/) {
 		Carp::croak('Invalid format "' . $format . '"');
 	}
 	eval {
--
cgit v0.9.1