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;