377     # create COMPILE_DIR and sub-directories representing each INCLUDE_PATH
 378     # element in which to store compiled files
 379     if ($cdir) {
 380         require File::Path;
 381         foreach my $dir (@$path) {
 382             next if ref $dir;
 383             my $wdir = $dir;
 384             $wdir =~ s[:][]g if $^O eq 'MSWin32';
 385             $wdir =~ /(.*)/;  # untaint
 386             $wdir = $1;
 387             $wdir = File::Spec->catfile($cdir, $1);
 388             File::Path::mkpath($wdir) unless -d $wdir;
 389         }
 390     }