diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-23 07:09:50 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-23 07:09:50 +0000 |
| commit | 72720e3c89723833af2f8074486dfbeea0d9ac0d (patch) | |
| tree | be969142a74c6bf30d5d75a22bf7f24caa028aa0 | |
| parent | e4d5a464a77aaa196c56d6d73e56e8cdc9decc69 (diff) | |
| download | perl-72720e3c89723833af2f8074486dfbeea0d9ac0d.tar.gz | |
U/WIN testsuite patches from Joe Buehler <jhpb@hekimian.com>
p4raw-id: //depot/perl@1827
| -rwxr-xr-x | t/op/grent.t | 1 | ||||
| -rwxr-xr-x | t/op/groups.t | 6 |
2 files changed, 6 insertions, 1 deletions
diff --git a/t/op/grent.t b/t/op/grent.t index 393065379e..a04b51b5fe 100755 --- a/t/op/grent.t +++ b/t/op/grent.t @@ -29,6 +29,7 @@ while (<GR>) { @s = split /:/; if (@s == 4) { my ($name_s,$passwd_s,$gid_s,$members_s) = @s; + $members_s =~ s/ /,/g; @n = getgrgid($gid_s); # 'nogroup' et al. next unless @n; diff --git a/t/op/groups.t b/t/op/groups.t index 47aabe3d7b..f6f5ba252c 100755 --- a/t/op/groups.t +++ b/t/op/groups.t @@ -27,7 +27,11 @@ for (split(' ', $()) { } } -$gr1 = join(' ', sort @gr); +if ($^O eq "uwin") { + $gr1 = join(' ', grep(!$did{$_}++, sort split(' ', join(' ', @gr)))); +} else { + $gr1 = join(' ', sort @gr); +} $gr2 = join(' ', grep(!$basegroup{$_}++, sort split(' ',`$groups`))); |