throw exception if ppi fails

rjbs · Nov 29, 2009 · f5621fb · f5621fb
1 parent a64125a
commit f5621fb
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/Changes b/Changes
@@ -0,0 +1,7 @@
+Revision history for {{$dist->name}}
+
+{{$NEXT}}
+          throw exception if PPI parsing fails
+
+0.093020  2009-10-28
+          first release
diff --git a/lib/Pod/Elemental/PerlMunger.pm b/lib/Pod/Elemental/PerlMunger.pm
@@ -47,6 +47,7 @@ around munge_perl_string => sub {
   my ($orig, $self, $perl, $arg) = @_;
 
   my $ppi_document = PPI::Document->new(\$perl);
+  confess(PPI::Document->errstr) unless $ppi_document;
 
   my @pod_tokens = map {"$_"} @{ $ppi_document->find('PPI::Token::Pod') || [] };
   $ppi_document->prune('PPI::Token::Pod');