fix PERMS file updateing

This commit is contained in:
Ward Wouts 2004-01-25 15:43:29 +00:00
parent fd08e529ca
commit 4d56e4552d

View file

@ -222,7 +222,10 @@ EOT
open(FH, ">>$permsfile"); open(FH, ">>$permsfile");
print FH "$mode:$user:$group:$fullname\n"; print FH "$mode:$user:$group:$fullname\n";
close FH; close FH;
system("$cvscmd ci -m \"adding $fullname\" $permsfile"); my $cwd = cwd;
chdir dirname($permsfile);
system("$cvscmd ci -m \"adding $fullname\" " . basename($permsfile));
chdir $cwd;
return 1; return 1;
} }
} }