From 25608cc2b6a05437b195db9b4c3bd1e63dfd267c Mon Sep 17 00:00:00 2001
From: Ward Wouts <ward@wouts.nl>
Date: Sun, 25 Jan 2004 13:53:32 +0000
Subject: [PATCH] minor fixes

---
 mycp/mycp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/mycp/mycp b/mycp/mycp
index 52a2040..a3f6e78 100755
--- a/mycp/mycp
+++ b/mycp/mycp
@@ -185,11 +185,13 @@ sub inperms($) {
 	print "$mode:$user:$group:$fullname\n";
 
 	unless ( -f $permsfile ) {
-		print <<EOT;
+		open FH, ">$permsfile";
+		print FH <<EOT;
 # \$Id\$
 # \$Source\$
 
 EOT
+		close FH;
 		system("$cvscmd add $permsfile");
 		system("$cvscmd ci -m initial $permsfile");
 	}