folkslinux
/
rpm
mirror of https://github.com/rpm-software-management/rpm.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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

This commit is contained in:
Ville Skyttä 2010-02-25 19:37:55 +02:00 committed by Panu Matilainen
parent a1517d9c09
commit 0ffc1e9143
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scripts/perl.prov
View File

@ -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) = ();

5
scripts/perl.req
View File

@ -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>) {