This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
whitespace-proof grent.t
authorGurusamy Sarathy <gsar@cpan.org>
Sat, 17 Oct 1998 02:33:02 +0000 (02:33 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Sat, 17 Oct 1998 02:33:02 +0000 (02:33 +0000)
p4raw-id: //depot/perl@1994

t/op/grent.t

index 70b4ce0..48698e8 100755 (executable)
@@ -30,6 +30,8 @@ while (<GR>) {
     if (@s == 4) {
        my ($name_s,$passwd_s,$gid_s,$members_s) = @s;
        $members_s =~ s/\s*,\s*/,/g;
+       $members_s =~ s/\s+$//;
+       $members_s =~ s/^\s+//;
        @n = getgrgid($gid_s);
        # 'nogroup' et al.
        next unless @n;