From f1464d5fa918583be521af14e861de34347d0f2b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 25 Jul 2012 17:01:57 +0000
Subject: =?UTF-8?q?sync=20with=20upstream=20rpm.org:=20"Make=20perl.{req,p?=
 =?UTF-8?q?rov}=20warn=20about=20unreadable=20files"=20(Ville=20Skytt?=
 =?UTF-8?q?=C3=A4,=202010-02-25)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 perl.req | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl.req')

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>) {
     
-- 
cgit v1.2.1