Patch expLogChannelOpen() to create files with 0666 permissions (#182724).

expect-5.43.0-log_file.patch

@@ -0,0 +1,11 @@
+--- expect-5.43/exp_log.c.log_file	2004-08-18 16:54:35.000000000 -0400
++++ expect-5.43/exp_log.c	2006-02-24 12:39:58.000000000 -0500
+@@ -471,7 +471,7 @@
+ 	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.spec

@@ -3,7 +3,7 @@
 Summary: A program-script interaction and testing utility
 Name: expect
 Version: %{majorver}.0
-Release: 3.1
+Release: 4
 License: Public Domain
 Group: Development/Languages
 URL: http://expect.nist.gov/
@@ -11,12 +11,12 @@ Source: http://expect.nist.gov/src/%{name}-%{version}.tar.gz
 BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root
 Buildrequires: tcl-devel tk-devel autoconf automake
 
-# submitted to author
 Patch6: expect-5.38.0-spawn-43310.patch
-# submitted to author
 Patch8: expect-5.43.0-cfg-setpgrp.patch
 Patch10: expect-5.38.0-lib-spec.patch
 Patch11: expect-5.39.0-libdir.patch
+Patch12: expect-5.43.0-log_file.patch
+
 # examples patches
 Patch100: expect-5.32.2-random.patch
 Patch101: expect-5.32.2-fixcat.patch
@@ -62,6 +62,7 @@ This package contains expectk and some scripts that use it.
 %patch8 -p1 -b .8-pgrp
 %patch10 -p1 -b .10-libspec
 %patch11 -p1 -b .11-libdir
+%patch12 -p1 -b .12-log_file
 # examples fixes
 %patch100 -p1 -b .100
 %patch101 -p1 -b .101
@@ -152,6 +153,9 @@ rm -rf $RPM_BUILD_ROOT
 %{_mandir}/man1/tknewsbiff.1*
 
 %changelog
+* Fri Feb 24 2006 David Cantrell <dcantrell@redhat.com> - 5.43.0-4
+- Patch expLogChannelOpen() to create files with 0666 permissions (#182724)
+
 * Fri Feb 10 2006 Jesse Keating <jkeating@redhat.com> - 5.43.0-3.1
 - bump again for double-long bug on ppc(64)