From bc81ab8dc7090a6fb8d7732d7be59457dc4adc77 Mon Sep 17 00:00:00 2001
From: Ward Wouts <ward@wouts.nl>
Date: Sun, 25 Jan 2004 14:19:36 +0000
Subject: [PATCH] perms matching fix

---
 mycp/mycp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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} ){