From bfbcf9dbd0b985e73a97ce23e13041ef16078a27 Mon Sep 17 00:00:00 2001
From: Ward Wouts <ward@wouts.nl>
Date: Sun, 25 Jan 2004 14:10:09 +0000
Subject: [PATCH] fix permsfile commit

---
 mycp/mycp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/mycp/mycp b/mycp/mycp
index 2069efa..d339b11 100755
--- a/mycp/mycp
+++ b/mycp/mycp
@@ -190,8 +190,11 @@ sub inperms($) {
 
 EOT
 		close FH;
-		&cvsadd($permsfile);
-		&checkin($permsfile);
+		my $cwd = cwd;
+		chdir dirname($permsfile);
+		system("$cvscmd add " . &basename($permsfile));
+		system("cvscmd ci -m initial " . &basename($permsfile));
+		chdir $cwd;
 	}
 
 	my $perms = &slurp($permsfile);