diff options
| -rw-r--r-- | lib/Text/MarkdownBook/Book.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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 { |