Fix wrong log file permissions

This commit is contained in:
Vitezslav Crhonek 2018-06-27 11:05:54 +02:00
parent 9f5d173077
commit f1e4923da5
2 changed files with 13 additions and 10 deletions

View File

@ -1,12 +1,12 @@
diff -up expect-5.44.1.15/exp_log.c.orig expect-5.44.1.15/exp_log.c
--- expect-5.44.1.15/exp_log.c.orig 2010-03-08 15:45:20.581378309 +0100
+++ expect-5.44.1.15/exp_log.c 2010-03-08 15:45:38.838398279 +0100
@@ -374,7 +374,7 @@ expDiagChannelOpen(interp,filename)
Tcl_DStringAppend(&tsdPtr->diagFilename,filename,-1);
diff -up expect5.45.4/exp_log.c.orig expect5.45.4/exp_log.c
--- expect5.45.4/exp_log.c.orig 2018-02-02 20:15:52.000000000 +0100
+++ expect5.45.4/exp_log.c 2018-06-27 10:46:53.065655463 +0200
@@ -499,7 +499,7 @@ expLogChannelOpen(interp,filename,append
Tcl_DStringAppend(&tsdPtr->logFilename,filename,-1);
}
- tsdPtr->diagChannel = Tcl_OpenFileChannel(interp,newfilename,"a",0777);
+ tsdPtr->diagChannel = Tcl_OpenFileChannel(interp,newfilename,"a",0666);
if (!tsdPtr->diagChannel) {
Tcl_DStringFree(&tsdPtr->diagFilename);
- tsdPtr->logChannel = Tcl_OpenFileChannel(interp,newfilename,mode,0777);
+ tsdPtr->logChannel = Tcl_OpenFileChannel(interp,newfilename,mode,0666);
if (!tsdPtr->logChannel) {
Tcl_DStringFree(&tsdPtr->logFilename);
return TCL_ERROR;

View File

@ -5,7 +5,7 @@
Summary: A program-script interaction and testing utility
Name: expect
Version: %{majorver}
Release: 3%{?dist}
Release: 4%{?dist}
License: Public Domain
URL: https://core.tcl.tk/expect/index
Source: http://downloads.sourceforge.net/%{name}/%{name}%{version}.tar.gz
@ -174,6 +174,9 @@ chrpath --delete $RPM_BUILD_ROOT%{_libdir}/libexpect%{version}.so
%{_mandir}/man1/tknewsbiff.1*
%changelog
* Wed Jun 27 2018 Vitezslav Crhonek <vcrhonek@redhat.com> - 5.45.4-4
- Fix wrong log file permissions
* Wed Jun 20 2018 Vitezslav Crhonek <vcrhonek@redhat.com> - 5.45.4-3
- Fix upstream URL