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 (file)
--- 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(