Ticket #36: short_path_name_win32.patch

config/init/hints/mswin32.pm

@@ -1 @@
-# Copyright (C) 2005-2007, The Perl Foundation.
+# Copyright (C) 2005-2009, The Perl Foundation.
 # $Id$
 
 package init::hints::mswin32;
@@ -34 +34 @@
     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) {