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; close FH;
my $cwd = cwd; my $cwd = cwd;
chdir dirname($permsfile); chdir dirname($permsfile);
system("$cvscmd add " . &basename($permsfile)); system("$cvscmd add " . basename($permsfile));
system("cvscmd ci -m initial " . &basename($permsfile)); system("$cvscmd ci -m initial " . basename($permsfile));
chdir $cwd; chdir $cwd;
} }
my $perms = &slurp($permsfile); 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 ) { if ( $1 eq $mode && $2 eq $user && $3 eq $group ) {
return 1; return 1;
} elsif ( $option{p} ){ } elsif ( $option{p} ){