This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Too strict pattern for parsing group lists.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 17 Sep 1999 11:36:01 +0000 (11:36 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 17 Sep 1999 11:36:01 +0000 (11:36 +0000)
p4raw-id: //depot/cfgperl@4166

t/op/groups.t

index f46af93..a8f9fe8 100755 (executable)
@@ -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 {