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 _;
 	}
     }