--- loncom/auth/lonlogout.pm	2017/11/30 03:35:08	1.52
+++ loncom/auth/lonlogout.pm	2018/05/01 13:47:53	1.53
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Logout Handler
 #
-# $Id: lonlogout.pm,v 1.52 2017/11/30 03:35:08 raeburn Exp $
+# $Id: lonlogout.pm,v 1.53 2018/05/01 13:47:53 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -130,7 +130,7 @@ sub handler {
                     $ssofile = '/'.&Apache::loncommon::clean_path($r->dir_config("lonSSOUserLogoutHeadFile_$domain"));
                     if ($ssofile eq $r->dir_config("lonSSOUserLogoutHeadFile_$domain")) {
                         if ($ssofile =~ /^\Q$londocroot\E/) {
-                            if (open(my $fh,"<$ssofile")) {
+                            if (open(my $fh,'<',$ssofile)) {
                                 $headextra = join('',<$fh>);
                                 close($fh);
                             }
@@ -142,7 +142,7 @@ sub handler {
                 $ssofile = '/'.&Apache::loncommon::clean_path($r->dir_config('lonSSOUserLogoutHeadFile'));
                 if ($ssofile eq $r->dir_config('lonSSOUserLogoutHeadFile')) {
                     if ($ssofile =~ /^\Q$londocroot\E/) {
-                        if (open(my $fh,"<$ssofile")) {
+                        if (open(my $fh,'<',$ssofile)) {
                             $headextra.= join('',<$fh>);
                             close($fh);
                         }
@@ -210,14 +210,14 @@ Due to security reasons in new web brows
         }
         if ($env{'request.sso.login'}
 	    && defined($r->dir_config("lonSSOUserLogoutMessageFile_$domain"))) {
-	    if (open(my $fh,$r->dir_config("lonSSOUserLogoutMessageFile_$domain"))) {
+	    if (open(my $fh,'<',$r->dir_config("lonSSOUserLogoutMessageFile_$domain"))) {
 	        $relogmessage.= join('',<$fh>);
                 close($fh);
             }
 	}
 	if ($env{'request.sso.login'}
 	    && defined($r->dir_config('lonSSOUserLogoutMessageFile'))) {
-	    if (open(my $fh,$r->dir_config('lonSSOUserLogoutMessageFile'))) {
+	    if (open(my $fh,'<',$r->dir_config('lonSSOUserLogoutMessageFile'))) {
 	        $relogmessage.= join('',<$fh>);
                 close($fh);
             }