Front page | perl.perl5.changes |
Postings from April 2008
Change 33774 by rgs@scipion on 2008/04/30 15:18:24
Subject: [perl #53560] Patch for linux LDAP groups
From: David Dick (via RT) <perlbug-followup@perl.org>
Date: Wed, 30 Apr 2008 05:17:54 -0700
Message-ID: <rt-3.6.HEAD-20841-1209557873-1645.53560-75-0@perl.org>
Affected files ...
... //depot/perl/t/op/groups.t#33 edit
Differences ...
==== //depot/perl/t/op/groups.t#33 (xtext) ====
Index: perl/t/op/groups.t
--- perl/t/op/groups.t#32~29546~ 2006-12-13 02:40:36.000000000 -0800
+++ perl/t/op/groups.t 2008-04-30 08:18:24.000000000 -0700
@@ -136,7 +136,7 @@
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 {
End of Patch.