From c07faea2674fb796a9c1547fe924a798fbe084b3 Mon Sep 17 00:00:00 2001 From: P. J. McDermott Date: Mon, 10 Sep 2012 22:12:56 -0400 Subject: Ensure that book format RE matches entire string. --- (limited to 'lib/Text/MarkdownBook') 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