cpet/openbsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

only use the first group in the list

Browse Source
This commit is contained in:
espie 2015-05-14 11:15:29 +00:00
parent 6b53913330
commit b6fb756731
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
infrastructure/bin/dolock
View File

@ -1,5 +1,5 @@
#! /usr/bin/perl #! /usr/bin/perl
# $OpenBSD: dolock,v 1.4 2015/05/02 16:42:55 espie Exp $ # $OpenBSD: dolock,v 1.5 2015/05/14 11:15:29 espie Exp $
# Copyright (c) 2004 Marc Espie <espie@openbsd.org> # Copyright (c) 2004 Marc Espie <espie@openbsd.org>
# #
# Permission to use, copy, modify, and distribute this software for any # Permission to use, copy, modify, and distribute this software for any
@ -29,9 +29,11 @@ if (@ARGV == 0) {
exit(1); exit(1);
} }
my $p = {group => $( }; my $p = {};
if ($opts{g}) { if ($opts{g}) {
$p->{group} = $opts{g}; $p->{group} = $opts{g};
} else {
$( =~ m/^(\d+)/ and $p->{group} = $1;
} }
if ($opts{m}) { if ($opts{m}) {
$p->{mode} = oct($opts{m}); $p->{mode} = oct($opts{m});