diff options
| author | Graham Barr <gbarr@pobox.com> | 1999-07-27 03:09:25 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-28 06:51:32 +0000 |
| commit | 09ac174e4b3f8744bbc9c1763e4c2dbccd2937c7 (patch) | |
| tree | 43f451f147aafe28003d75058ef6e41a2365eb4b /t | |
| parent | f29c64d6c131b79fab4ecd5f3a3b5afc6803e2a1 (diff) | |
| download | perl-09ac174e4b3f8744bbc9c1763e4c2dbccd2937c7.tar.gz | |
cosmetic testsuite patch
To: Perl5 Porters <perl5-porters@perl.org>
Subject: 5.005_58 build
Message-ID: <19990727080925.F4683@dal.asp.ti.com>
p4raw-id: //depot/perl@3802
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/grent.t | 6 | ||||
| -rwxr-xr-x | t/op/pwent.t | 6 |
2 files changed, 10 insertions, 2 deletions
diff --git a/t/op/grent.t b/t/op/grent.t index c9d3797533..761d8b9cf6 100755 --- a/t/op/grent.t +++ b/t/op/grent.t @@ -77,7 +77,11 @@ while (<GR>) { warn "# Your $where line $. is empty.\n"; next; } - last if $n == $max; + if ($n == $max) { + local $/; + my $junk = <GR>; + last; + } # In principle we could whine if @s != 4 but do we know enough # of group file formats everywhere? if (@s == 4) { diff --git a/t/op/pwent.t b/t/op/pwent.t index 788d2f2701..ca14a99eec 100755 --- a/t/op/pwent.t +++ b/t/op/pwent.t @@ -79,7 +79,11 @@ while (<PW>) { warn "# Your $where line $. is empty.\n"; next; } - last if $n == $max; + if ($n == $max) { + local $/; + my $junk = <PW>; + last; + } # In principle we could whine if @s != 7 but do we know enough # of passwd file formats everywhere? if (@s == 7) { |