diff --git a/mycp/mycp b/mycp/mycp
index d339b11..fef2277 100755
--- a/mycp/mycp
+++ b/mycp/mycp
@@ -192,14 +192,14 @@ EOT
 		close FH;
 		my $cwd = cwd;
 		chdir dirname($permsfile);
-		system("$cvscmd add " . &basename($permsfile));
-		system("cvscmd ci -m initial " . &basename($permsfile));
+		system("$cvscmd add " . basename($permsfile));
+		system("$cvscmd ci -m initial " . basename($permsfile));
 		chdir $cwd;
 	}
 
 	my $perms = &slurp($permsfile);
 
-	if ( $perms =~ /^(\d{4}):([^-:][^:]*):([^:]+?):$fullname$/o ) {
+	if ( $perms =~ /^(\d{4}):([^-:][^:]*):([^:]+?):$fullname$/mo ) {
 		if ( $1 eq $mode && $2 eq $user && $3 eq $group ) {
 			return 1;
 		} elsif ( $option{p} ){