From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 17 Sep 1999 11:36:01 +0000 (+0000)
Subject: Too strict pattern for parsing group lists.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9461e3d094a555dd8be14b1286f461b93b333ad9;p=p5sagit%2Fp5-mst-13.2.git

Too strict pattern for parsing group lists.

p4raw-id: //depot/cfgperl@4166
---

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 {