aboutsummaryrefslogtreecommitdiff
path: root/contrib/perl5/t/op/groups.t
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/perl5/t/op/groups.t')
-rwxr-xr-xcontrib/perl5/t/op/groups.t3
1 files changed, 2 insertions, 1 deletions
diff --git a/contrib/perl5/t/op/groups.t b/contrib/perl5/t/op/groups.t
index 4b655c8e9c3e..082d2d1d9f53 100755
--- a/contrib/perl5/t/op/groups.t
+++ b/contrib/perl5/t/op/groups.t
@@ -115,7 +115,8 @@ for (split(' ', $()) {
}
}
-if ($^O eq "uwin") { # Or anybody else who can have spaces in group names.
+if ($^O =~ /^(?:uwin|solaris)$/) {
+ # Or anybody else who can have spaces in group names.
$gr1 = join(' ', grep(!$did{$_}++, sort split(' ', join(' ', @gr))));
} else {
$gr1 = join(' ', sort @gr);