diff options
Diffstat (limited to 'gnu/usr.bin/perl/t/cmd/while.t')
| -rw-r--r-- | gnu/usr.bin/perl/t/cmd/while.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/t/cmd/while.t b/gnu/usr.bin/perl/t/cmd/while.t index 4c8c10e990a..c6e464d444a 100644 --- a/gnu/usr.bin/perl/t/cmd/while.t +++ b/gnu/usr.bin/perl/t/cmd/while.t @@ -90,6 +90,7 @@ loop: while (<fh>) { if (!eof || $bad) {print "not ok 8\n";} else {print "ok 8\n";} if (!$badcont) {print "ok 9\n";} else {print "not ok 9\n";} +close(fh) || die "Can't close Cmd_while.tmp."; unlink 'Cmd_while.tmp' || `/bin/rm Cmd_While.tmp`; #$x = 0; |