[LON-CAPA-cvs] cvs: loncom /auth lonlogout.pm

raeburn raeburn at source.lon-capa.org
Tue May 1 09:47:53 EDT 2018


raeburn		Tue May  1 13:47:53 2018 EDT

  Modified files:              
    /loncom/auth	lonlogout.pm 
  Log:
  - Use three-argument open() to separate file mode from the filename.
  
  
Index: loncom/auth/lonlogout.pm
diff -u loncom/auth/lonlogout.pm:1.52 loncom/auth/lonlogout.pm:1.53
--- loncom/auth/lonlogout.pm:1.52	Thu Nov 30 03:35:08 2017
+++ loncom/auth/lonlogout.pm	Tue May  1 13:47:53 2018
@@ -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 @@
                     $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 @@
                 $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 @@
         }
         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);
             }




More information about the LON-CAPA-cvs mailing list