Fix t/051-fsfile.t cleanup on Windows
Project: http://git-wip-us.apache.org/repos/asf/lucy/repo Commit: http://git-wip-us.apache.org/repos/asf/lucy/commit/de646e69 Tree: http://git-wip-us.apache.org/repos/asf/lucy/tree/de646e69 Diff: http://git-wip-us.apache.org/repos/asf/lucy/diff/de646e69 Branch: refs/heads/master Commit: de646e69ebc74cde8536b2b4b1a85ee4d5a6c54c Parents: 291a326 Author: Nick Wellnhofer <[email protected]> Authored: Sun Mar 5 01:09:14 2017 +0100 Committer: Nick Wellnhofer <[email protected]> Committed: Sun Mar 5 16:29:44 2017 +0100 ---------------------------------------------------------------------- perl/t/051-fsfile.t | 1 + 1 file changed, 1 insertion(+) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/lucy/blob/de646e69/perl/t/051-fsfile.t ---------------------------------------------------------------------- diff --git a/perl/t/051-fsfile.t b/perl/t/051-fsfile.t index 6a7e34f..99c6dd5 100644 --- a/perl/t/051-fsfile.t +++ b/perl/t/051-fsfile.t @@ -97,6 +97,7 @@ undef $foo; $dupe->read( $foo, 4 ); is( $foo, 'afoo', "reopened instream" ); +undef $instream; # Trigger destruction. undef $folder;
