diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-17 11:36:01 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-17 11:36:01 +0000 |
| commit | 9461e3d094a555dd8be14b1286f461b93b333ad9 (patch) | |
| tree | 78265c2473d6ea857af4e76d3b9d826442e0c00f | |
| parent | 190b66db30c5b4467a9e439fe4e44f8a26f62f90 (diff) | |
| download | perl-9461e3d094a555dd8be14b1286f461b93b333ad9.tar.gz | |
Too strict pattern for parsing group lists.
p4raw-id: //depot/cfgperl@4166
| -rwxr-xr-x | t/op/groups.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/groups.t b/t/op/groups.t index f46af93bd3..a8f9fe816c 100755 --- a/t/op/groups.t +++ b/t/op/groups.t @@ -79,11 +79,11 @@ if ($groups =~ /groups=(.+)( [ug]id=|$)/) { # prefer names over numbers for (@g0) { # 42(zot me) - if (/^(\d+)(?:\(([^)]+)\))?$/) { + if (/^(\d+)(?:\(([^)]+)\))?/) { push @g1, ($2 || $1); } # zot me(42) - elsif (/^([^(]*)\((\d+)\)$/) { + elsif (/^([^(]*)\((\d+)\)/) { push @g1, ($1 || $2); } else { |