podcheck.t: Avoid misleading error message

If there are input files on the command line that don't exist, prior to
this commit, the message was output that they are transitory.  This adds
a check and a correct message.

diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t
index 9864af6..1d018f6 100644 (file)
--- a/t/porting/podcheck.t
+++ b/t/porting/podcheck.t
@@ -567,10 +567,13 @@ if (($regen + $show_all + $show_counts + $add_link + $cpan_or_deltas ) > 1) {
 
 my $has_input_files = @files;
 
-if ($has_input_files
-    && ($regen || $show_counts || $do_upstream_cpan || $do_deltas))
-{
-    croak "--regen, --counts, --deltas, and --cpan can't be used since using specific files";
+if ($has_input_files) {
+    if ($regen || $show_counts || $do_upstream_cpan || $do_deltas) {
+        croak "--regen, --counts, --deltas, and --cpan can't be used since using specific files";
+    }
+    foreach my $file (@files) {
+        croak "Can't read file '$file'" if ! -r $file;
+    }
 }
 
 if ($add_link && ! $has_input_files) {