File tree Expand file tree Collapse file tree 1 file changed +5
-3
lines changed Expand file tree Collapse file tree 1 file changed +5
-3
lines changed Original file line number Diff line number Diff line change @@ -437,15 +437,17 @@ sub CopyIncludeFiles
437
437
my $D ;
438
438
opendir ($D , ' src/include' ) || croak " Could not opendir on src/include!\n " ;
439
439
440
+ # some xcopy progs don't like mixed slash style paths
441
+ (my $ctarget = $target ) =~ s ! /! \\ ! g ;
440
442
while (my $d = readdir ($D ))
441
443
{
442
444
next if ($d =~ / ^\. / );
443
445
next if ($d eq ' .git' );
444
446
next if ($d eq ' CVS' );
445
- next unless (-d ' src/include/' . $d );
447
+ next unless (-d " src/include/$d " );
446
448
447
- EnsureDirectories($target . ' /include/server' , $d );
448
- system (" xcopy /s /i /q /r /y src\\ include\\ $d \\ *.h \" $target \\ include\\ server\\ $d \\\" " )
449
+ EnsureDirectories(" $target /include/server/ $d " );
450
+ system (qq{ xcopy /s /i /q /r /y src\\ include\\ $d \\ *.h " $ctarget \\ include\\ server\\ $d \\ " } )
449
451
&& croak(" Failed to copy include directory $d \n " );
450
452
}
451
453
closedir ($D );
You can’t perform that action at this time.
0 commit comments