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     }

##</code><code>##

C:/strawberry/cpan/build/Template-Toolkit-2.19-J1f5an/t/test/tmp/cache
C/strawberry/cpan/build/Template-Toolkit-2.19-J1f5an/t/test/src
C/strawberry/cpan/build/Template-Toolkit-2.19-J1f5an/t/test/src

##</code><code>##

C:\strawberry\cpan\build\Template-Toolkit-2.19-J1f5an\t\test\tmp\cache\C:

##</code><code>##

C:\strawberry\cpan\build\Template-Toolkit-2.19-J1f5an\t\test\tmp\cache\C\strawberry\cpan\build\Template-Toolkit-2.19-J1f5an\t\test\src

##</code><code>##

 386             $wdir = $1;
 387             $wdir = File::Spec->catfile($cdir, $wdir);

##</code><code>##

 
 386             #deleted
 387             $wdir = File::Spec->catfile($cdir, $wdir);

##</code><code>##

C:\strawberry\cpan\build\Template-Toolkit-2.19-J1f5an>perl -Ilib .\t\compile4.t
1..11
ok 1 - running test_expect()
SV = PV(0xbda53c) at 0xa44534
  REFCNT = 1
  FLAGS = (PADMY,POK,pPOK)
  PV = 0xba8754 "C/strawberry/cpan/build/Template-Toolkit-2.19-J1f5an/t/test/src
"\0
  CUR = 63
  LEN = 64
SV = PVMG(0x9b36ec) at 0xa52adc
  REFCNT = 1
  FLAGS = (GMG,SMG,pPOK)
  IV = 0
  NV = 0
  PV = 0x9c460c "p"\0
  CUR = 1
  LEN = 56
  MAGIC = 0xa53c0c
    MG_VIRTUAL = &PL_vtbl_sv
    MG_TYPE = PERL_MAGIC_sv(\0)
    MG_OBJ = 0xa52a9c
    MG_LEN = 1
    MG_PTR = 0x9e2234 "1"
Died at lib/Template/Provider.pm line 389, <DATA> line 1.

##</code><code>##

1..11
ok 1 - running test_expect()
SV = PVMG(0xa652e4) at 0xa44534
  REFCNT = 1
  FLAGS = (PADMY,POK,pPOK)
  IV = 0
  NV = 0
  PV = 0xba8754 "C/strawberry/cpan/build/Template-Toolkit-2.19-J1f5an/t/test/src
"\0
  CUR = 63
  LEN = 64
SV = PVMG(0x9b36ec) at 0xa52adc
  REFCNT = 1
  FLAGS = (GMG,SMG,pPOK)
  IV = 0
  NV = 0
  PV = 0xba87ac "C/strawberry/cpan/build/Template-Toolkit-2.19-J1f5an/t/test/src
"\0
  CUR = 63
  LEN = 64
  MAGIC = 0xa53c0c
    MG_VIRTUAL = &PL_vtbl_sv
    MG_TYPE = PERL_MAGIC_sv(\0)
    MG_OBJ = 0xa52a9c
    MG_LEN = 1
    MG_PTR = 0x9e2234 "1"
Died at lib/Template/Provider.pm line 390, <DATA> line 1.