Select Code to Download

use Win32API::File qw'GetFileAttributes :FILE_ATTRIBUTE_';
sub isjunc {
    return (GetFileAttributes($_[0]) & FILE_ATTRIBUTE_REPARSE_POINT ==
+ FILE_ATTRIBUTE_REPARSE_POINT) ? 1 : 0;
}