# look at instead of being printed
tie *ALREADY_FH, 'Tie_Array_to_FH', \@pod;
open my $in_fh, '<:bytes', $filename
+
+ # The file should already have been opened once to get here, so if
+ # fails, just die.
or die "Can't open '$filename': $!\n";
my $parser = Pod::Parser->new();
my $contents = do {
local $/;
- open my $candidate, '<:bytes', $_
- or die "Can't open '$File::Find::name': $!\n";
+ my $candidate;
+ if (! open $candidate, '<:bytes', $_) {
+
+ # If it is a broken symbolic link, just skip the file, as it
+ # is probably just a build problem; certainly not a file that
+ # we would want to check the pod of. Otherwise fail it here
+ # and no reason to process it further.
+ ok(0, "Can't open '$filename': $!") if ! -l $filename;
+ return;
+ }
<$candidate>;
};