=== config/init/hints/mswin32.pm
==================================================================
|
|
|
1 | | # Copyright (C) 2005-2007, The Perl Foundation. |
| 1 | # Copyright (C) 2005-2009, The Perl Foundation. |
2 | 2 | # $Id$ |
3 | 3 | |
4 | 4 | package init::hints::mswin32; |
… |
… |
|
34 | 34 | my $build_dir = $conf->data->get('build_dir'); |
35 | 35 | |
36 | 36 | if ( $build_dir =~ /\s/ ) { |
37 | | $conf->data->set( build_dir => Win32::GetShortPathName($build_dir) ); |
| 37 | $conf->data->set( build_dir => Win32::GetLongPathName($build_dir) ); |
38 | 38 | } |
39 | 39 | |
40 | 40 | if ($is_msvc) { |