From ffef6ccb5d1682884df1a5238012d8079504fd98 Mon Sep 17 00:00:00 2001
From: Ward Wouts <ward@wouts.nl>
Date: Sun, 25 Jan 2004 16:25:32 +0000
Subject: [PATCH] fix perms regexpes

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

diff --git a/mycp/mycp b/mycp/mycp
index 0b17f47..4f7877d 100755
--- a/mycp/mycp
+++ b/mycp/mycp
@@ -201,11 +201,11 @@ EOT
 
 	my $perms = &slurp($permsfile);
 
-	if ( $perms =~ /^(\d{4}):([^-:][^:]*):([^:]+?):$fullname$/mo ) {
+	if ( $perms =~ /^(\d{4}):([^-:][^:]*):([^:]+?):($fullname)$/m ) {
 		if ( $1 eq $mode && $2 eq $user && $3 eq $group ) {
 			return 1;
 		} elsif ( $option{p} ){
-			$perms =~ s/^(\d{4}):([^-:][^:]*):([^:]+?):$fullname$/$mode:$user:$group:$fullname/o;
+			$perms =~ s/^(\d{4}):([^-:][^:]*):([^:]+?):$fullname$/$mode:$user:$group:$fullname/m;
 			open(FH, ">>$permsfile");
 			print FH $perms;
 			close FH;