Fix a typo and change the wording of an error msg

hinrik · Jul 1, 2009 · f2b5b09 · f2b5b09
1 parent 8436b20
commit f2b5b09
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/lib/App/Grok/Pod5.pm b/lib/App/Grok/Pod5.pm
@@ -19,7 +19,7 @@ sub render {
             ? 'Pod::Xhtml'
             : $format eq 'text'
                 ? 'Pod::Text'
-                : die __PACKAGE__ " doesn't support the '$format' format";
+                : die __PACKAGE__ . " doesn't support the '$format' format";
     ;
 
     eval "require $formatter";

diff --git a/lib/App/Grok/Pod6.pm b/lib/App/Grok/Pod6.pm
@@ -16,7 +16,9 @@ sub new {
 sub render {
     my ($self, $file, $format) = @_;
 
-    die "Format $format unsupported" if $format !~ /^(?:ansi|text|xhtml)$/;
+    if ($format !~ /^(?:ansi|text|xhtml)$/) {
+        die __PACKAGE__ . " doesn't support the '$format' format";
+    }
     eval "require Perl6::Perldoc::To::\u$format";
     die $@ if $@;