From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Sun, 29 Jul 2012 17:35:02 +0000 (+0200)
Subject: Fix t/metadata.t failure under Cygwin
X-Git-Tag: release_1.0.10~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=02a3d47833d8f01cdfceb245abf3aeffaf7863fc;p=p5sagit%2FModule-Metadata.git

Fix t/metadata.t failure under Cygwin

This fixes RT #78376.
---

diff --git a/t/metadata.t b/t/metadata.t
index ab9c8c4..75705b1 100644
--- a/t/metadata.t
+++ b/t/metadata.t
@@ -246,7 +246,7 @@ $pm_info = Module::Metadata->new_from_handle( $handle, $file );
 ok( defined( $pm_info ), 'new_from_handle() succeeds' );
 $pm_info = Module::Metadata->new_from_handle( $handle );
 is( $pm_info, undef, "new_from_handle() without filename returns undef" );
-
+close($handle);
 
 # construct from module name, using custom include path
 $pm_info = Module::Metadata->new_from_module(