Select Code to Download

#### https://metacpan.org/pod/Win32API::File
use Win32API::File qw'GetFileAttributes :FILE_ATTRIBUTE_';
sub isjunc {
    return GetFileAttributes($_[0]) & FILE_ATTRIBUTE_REPARSE_POINT
}

    if ( -d ) {  # junctions show up as TRUE for `-d`
        if( isjunc($File::Find::name) ) {
...
        }
        ... # go do the stuff I want to do if it's a real directory, a
+nd not a junction
    }