From 9461e3d094a555dd8be14b1286f461b93b333ad9 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 17 Sep 1999 11:36:01 +0000
Subject: [PATCH] Too strict pattern for parsing group lists.

p4raw-id: //depot/cfgperl@4166
---
 t/op/groups.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/op/groups.t b/t/op/groups.t
index f46af93..a8f9fe8 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 {
-- 
2.7.4