Make perl.{req,prov} warn about unreadable files.

diff --git a/scripts/perl.prov b/scripts/perl.prov
index deb8fc0..9886dd9 100755 (executable)
--- a/scripts/perl.prov
+++ b/scripts/perl.prov
@@ -82,7 +82,10 @@ sub process_file {
   my ($file) = @_;
   chomp $file;
 
-  open(FILE, "<$file") || return;
+  if (!open(FILE, $file)) {
+    warn("$0: Warning: Could not open file '$file' for reading: $!\n");
+    return;
+  }
 
   my ($package, $version, $incomment, $inover) = ();
 

diff --git a/scripts/perl.req b/scripts/perl.req
index 587b3a5..a52596b 100755 (executable)
--- a/scripts/perl.req
+++ b/scripts/perl.req
@@ -79,7 +79,10 @@ sub process_file {
   my ($file) = @_;
   chomp $file;
 
-  open(FILE, "<$file") || return;
+  if (!open(FILE, $file)) {
+    warn("$0: Warning: Could not open file '$file' for reading: $!\n");
+    return;
+  }
 
   while (<FILE>) {