=== config/init/hints/mswin32.pm
==================================================================
--- config/init/hints/mswin32.pm	(revision 36588)
+++ config/init/hints/mswin32.pm	(local)
@@ -1,4 +1,4 @@
-# Copyright (C) 2005-2007, The Perl Foundation.
+# Copyright (C) 2005-2009, The Perl Foundation.
 # $Id$
 
 package init::hints::mswin32;
@@ -34,7 +34,7 @@
     my $build_dir = $conf->data->get('build_dir');
 
     if ( $build_dir =~ /\s/ ) {
-        $conf->data->set( build_dir => Win32::GetShortPathName($build_dir) );
+        $conf->data->set( build_dir => Win32::GetLongPathName($build_dir) );
     }
 
     if ($is_msvc) {