This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
tolerate spaces in group names in test on solaris (from David Boyce
authorGurusamy Sarathy <gsar@cpan.org>
Thu, 27 Apr 2000 17:44:49 +0000 (17:44 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Thu, 27 Apr 2000 17:44:49 +0000 (17:44 +0000)
<dsb@boyski.com>)

p4raw-id: //depot/perl@5968

t/op/groups.t

index 4b655c8..082d2d1 100755 (executable)
@@ -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);