sync with upstream rpm.org: "Make perl.{req,prov} warn about unreadable files"

(Ville Skyttä, 2010-02-25)

1 files changed, 4 insertions, 1 deletions

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