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

(Ville Skyttä, 2010-02-25)

1 files changed, 5 insertions, 1 deletions

diff --git a/perl.prov b/perl.prov
index 8c0e890..db6d5b2 100755
--- a/perl.prov
+++ b/perl.prov
@@ -85,7 +85,11 @@ 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;
+  }
+
 
   my ($package, $version, $incomment, $inover) = ();