Accepting request 114228 from devel:languages:tcl

- Remove execute permission from logfiles (forwarded request 113576 from AndreasSchwab)

OBS-URL: https://build.opensuse.org/request/show/114228
OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/expect?expand=0&rev=18

expect-log.patch

@@ -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;

expect.changes

@@ -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
 

expect.spec

@@ -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