#replace
    my @aDirs = File::Spec->splitdir($sDirPart);
    #with
    my @aDirs = $sDirPart eq File::Spec->rootdir()
      ? ('') : File::Spec->splitdir($sDirPart);