From: David Dick <unknown>
Date: Wed, 30 Apr 2008 05:17:54 +0000 (-0700)
Subject: [perl #53560] Patch for linux LDAP groups
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d4e5d774f797f108c133533b0d21df0cfad7c703;p=p5sagit%2Fp5-mst-13.2.git

[perl #53560] Patch for linux LDAP groups
From: David Dick (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.6.HEAD-20841-1209557873-1645.53560-75-0@perl.org>

p4raw-id: //depot/perl@33774
---

diff --git a/t/op/groups.t b/t/op/groups.t
index f682f61..5121ff8 100755
--- a/t/op/groups.t
+++ b/t/op/groups.t
@@ -136,7 +136,7 @@ for (split(' ', $()) {
 print "# gr = @gr\n";
 
 my %did;
-if ($^O =~ /^(?:uwin|cygwin|interix|solaris)$/) {
+if ($^O =~ /^(?:uwin|cygwin|interix|solaris|linux)$/) {
 	# Or anybody else who can have spaces in group names.
 	$gr1 = join(' ', grep(!$did{$_}++, sort split(' ', join(' ', @gr))));
 } else {