[svn:Module-Build] r13675 - Module-Build/trunk/t

Author: dagolden
Date: Thu Dec 17 09:48:47 2009
New Revision: 13675

Modified:
   Module-Build/trunk/t/bundle_inc.t

Log:
get all bundle_inc tests running on Win32

Modified: Module-Build/trunk/t/bundle_inc.t
==============================================================================
--- Module-Build/trunk/t/bundle_inc.t	(original)
+++ Module-Build/trunk/t/bundle_inc.t	Thu Dec 17 09:48:47 2009
@@ -91,6 +91,7 @@
 
 eval {
   my $fh;
+  chmod 0666, $mb_file;
   $fh = IO::File->new($mb_file, "<") or die "Could not read $mb_file: $!";
   my $mb_code = do { local $/; <$fh> };
   $mb_code =~ s{\$VERSION\s+=\s+\S+}{\$VERSION = 9999;};
@@ -116,6 +117,7 @@
   ok( scalar( grep { /generated_by:.*9999/ } <$meta> ),
     "dist_dir Build.PL loaded bundled Module::Build"
   );
+  close $meta;
 
   #--------------------------------------------------------------------------#
   # test identification of dependencies