Ticket #144: 0002-Make-perl.-req-prov-warn-about-unreadable-files.patch

File 0002-Make-perl.-req-prov-warn-about-unreadable-files.patch, 1.1 kB (added by scop, 2 years ago)

a/scripts/perl.prov

old	new
82	82	my ($file) = @_;
83	83	chomp $file;
84	84
85		open(FILE, "<$file") \|\| return;
	85	if (!open(FILE, $file)) {
	86	warn("$0: Warning: Could not open file '$file' for reading: $!\n");
	87	return;
	88	}
86	89
87	90	my ($package, $version, $incomment, $inover) = ();
88	91

old	new
79	79	my ($file) = @_;
80	80	chomp $file;
81	81
82		open(FILE, "<$file") \|\| return;
	82	if (!open(FILE, $file)) {
	83	warn("$0: Warning: Could not open file '$file' for reading: $!\n");
	84	return;
	85	}
83	86
84	87	while (<FILE>) {
85	88