ward/publicscripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

perms matching fix

Browse source
This commit is contained in:
Ward Wouts 2004-01-25 14:19:36 +00:00
parent bfbcf9dbd0
commit bc81ab8dc7
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
mycp/mycp
View file

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