using eval around Pod::Parser method parse_from_filehandle which occa…

…sionally dies (observed with PDL/Graphics/Gnuplot.pm on MSWin32)
PDLPorters · Jan 2, 2015 · bb1afb7 · bb1afb7
1 parent 5fead2f
commit bb1afb7
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/Doc/Doc.pm b/Doc/Doc.pm
@@ -669,7 +669,9 @@ sub scan {
 
   my $parser = new PDL::PodParser;
   $parser->{verbose} = $verbose;
-  $parser->parse_from_filehandle($infile,$outfile);
+  eval { $parser->parse_from_filehandle($infile,$outfile) };
+  warn "cannot parse '$file'" if $@;
+
   $this->{SYMS} = {} unless defined $this->{SYMS};
   my $hash = $this->{SYMS};
   my @stats = stat $file;
@@ -693,7 +695,9 @@ sub scan {
   $outfile_text = '';
   $parser = new PDL::PodParser;
   $parser->select('NAME');
-  $parser->parse_from_filehandle($infile,$outfile);
+  eval { $parser->parse_from_filehandle($infile,$outfile) };
+  warn "cannot parse '$file'" if $@;
+
   my @namelines = split("\n",$outfile_text);
   my ($name,$does);
   for (@namelines) {