Pick up on pod generation failures

This commit is contained in:
Duncan Ferguson 2014-06-07 12:24:55 +01:00
parent 5b71abdcce
commit 526cc24860

View file

@ -33,6 +33,7 @@ for my $source (glob("*")) {
print $dfh "\n\n__END__\n\n";
my $pod= qx{ ./$source --generate-pod };
die "Failed to generate pod" if($?);
print $dfh $pod;
close($dfh);