SHA256
1
0
forked from pool/expect

Accepting request 113576 from home:AndreasSchwab:ff

- Remove execute permission from logfiles

OBS-URL: https://build.opensuse.org/request/show/113576
OBS-URL: https://build.opensuse.org/package/show/devel:languages:tcl/expect?expand=0&rev=11
This commit is contained in:
Factory Maintainer 2012-04-17 19:19:47 +00:00 committed by Git OBS Bridge
parent ef966f9a9e
commit 20cfa24cf8
3 changed files with 27 additions and 0 deletions

20
expect-log.patch Normal file
View File

@ -0,0 +1,20 @@
--- exp_log.c
+++ exp_log.c
@@ -374,7 +374,7 @@ expDiagChannelOpen(interp,filename)
Tcl_DStringAppend(&tsdPtr->diagFilename,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);
return TCL_ERROR;
@@ -499,7 +499,7 @@ expLogChannelOpen(interp,filename,append
Tcl_DStringAppend(&tsdPtr->logFilename,filename,-1);
}
- 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

@ -1,3 +1,8 @@
-------------------------------------------------------------------
Sat Apr 14 15:33:53 UTC 2012 - schwab@linux-m68k.org
- Remove execute permission from logfiles
-------------------------------------------------------------------
Tue Dec 20 20:19:12 UTC 2011 - coolo@suse.com

View File

@ -31,6 +31,7 @@ Source: %{name}%{version}.tar.gz
Source1: expect-rpmlintrc
Patch1: expect.patch
Patch2: expect-fixes.patch
Patch3: expect-log.patch
%description
Expect is a tool primarily for automating interactive applications,
@ -55,6 +56,7 @@ expect package loaded.
%setup -q -n %name%version
%patch1
%patch2
%patch3
%build
autoreconf