File: 0001-remove-r-for-checking-SSL_-cert-key-_file-since-this.patch

package info (click to toggle)
libio-socket-ssl-perl 2.002-2%2Bdeb8u3
  • links: PTS, VCS
  • area: main
  • in suites: jessie
  • size: 1,348 kB
  • sloc: perl: 14,412; makefile: 4
file content (26 lines) | stat: -rw-r--r-- 790 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
From 7432b34d5bf6f63f4b422e2fc411ee3fc7750c9e Mon Sep 17 00:00:00 2001
From: Steffen Ullrich <Steffen_Ullrich@genua.de>
Date: Sun, 23 Aug 2015 21:17:06 +0200
Subject: [PATCH] remove -r for checking SSL_{cert,key}_file since this will
 cause a usable error later anywy if file does not exist. This fixes some part
 of #106295

---
 lib/IO/Socket/SSL.pm | 1 -
 1 file changed, 1 deletion(-)

diff --git a/lib/IO/Socket/SSL.pm b/lib/IO/Socket/SSL.pm
index b000a6b..4fea291 100644
--- a/lib/IO/Socket/SSL.pm
+++ b/lib/IO/Socket/SSL.pm
@@ -2082,7 +2082,6 @@ sub new {
 	 defined( my $file = $arg_hash->{$_} ) or next;
 	for my $f (ref($file) eq 'HASH' ? values(%$file):$file ) {
 	    die "$_ $f does not exist" if ! -f $f;
-	    die "$_ $f is not accessible" if ! -r _;
 	}
     }
 
-- 
2.9.3