support File::Find / use Win32::LongPath::Globally; or Win32::LongPath -overridecore; so that CORE::chdir is chdirL

[ghost]

support File::Find / use Win32::LongPath::Globally; or Win32::LongPath -overridecore; so that CORE::chdir is chdirL

basically the idea is to have as first module use Win32::LongPath::Globally; and have File::Find WORK with unicode on NTFS transparently afterwards

stat/lstat don't work like Win32::Unicode::Native stat (list context),

I gave it a shot but I couldn't make it work (stat or chdir or readdir fails ... ), hopefully you'll have more clues :) thanks in advance

#!/usr/bin/perl --
BEGIN {
    if ( eval { require Win32; 1 } ) {
        require ex::override;
        require Win32::LongPath;
        ex::override->import(
            GLOBAL_lstat => sub(;*) {
                my $obj = &Win32::LongPath::lstatL;
                *_ = $obj; ## grrr
                wantarray
                  ? @{$obj}{
                    qw/ dev ino mode nlink uid gid rdev size atime mtime ctime blksize blocks /
                  }
                  : $obj
                  ; ## grr, copying Win32::Unicode::File::statW, that seemed to have worked
            },
            GLOBAL_stat => sub(;*) {
                my $obj = &Win32::LongPath::statL;
                *_ = $obj; ## grrr, nohelp
                wantarray
                  ? @{$obj}{
                    qw/ dev ino mode nlink uid gid rdev size atime mtime ctime blksize blocks /
                  }
                  : $obj
                  ; ## grr, copying Win32::Unicode::File::statW, that seemed to have worked
            },
            map( {
                    my $name        = $_;
                      my $prototype = prototype("CORE::$name");
                      "GLOBAL_$name" => eval
                      "sub($prototype){&Win32::LongPath::${name}L}";
                } qw/ chdir mkdir open readlink rename rmdir stat symlink unlink utime closedir opendir readdir /,
            )
        );
    }
}
package main;
use Data::Dump qw/ dd /;
use File::Find qw/ find /;
File::Find::find(
    {
        wanted => sub { ::dd( wanted => $File::Find::name , $_ ); },
        preprocess => sub { ::dd( preprocess => \@_ ); @_ },
        postprocess => sub { ::dd( postprocess => \@_ ); @_ },
    },
    q{some utf filenamed dir },
);  
exit( 0 );

[rdboisvert]

I understand what you are trying to do and I think I tried something similar way back when. It was difficult enough that I gave up and made the decision to work in parallel instead of using a total replacement.

If I have time in the next few weeks I will take this code and see if I can get any further.

Thanks for your efforts,
Bob

[rdboisvert]

Looking at the code I could redefine statL () and lstatL () to return an array in list context. However, openL (), opendirL (), closedirL (), and readdirL () will never be direct replacements for the matching core functions. Will this limited change satisfy your need?

[ghost]

Will this limited change satisfy your need?

its welcome but not really :)
I didn't realize opendirL/closedirL/readdirL are all methods of a Win32::LongPath object
this makes for a strange vocabulary , mixing oop and functional in an odd way
I really think its good to match the API where ever possible, especially when using the same names
The idea is for you to finish what I started and make it part of your distribution like Win32::Unicode::Native does :) You can borrow more ideas, like that whole blessed globs thing ...makes cooperation with autodie work (something to think about later)

sub opendir(*$) {
    my $dh = Win32::LongPath->new;
    return unless $dh->opendirL($_[1]);
    return $_[0] = $dh; ## copying Win32::Unicode::Native::opendir here
}

so thanks for your time, whatever you decide :) i'll try to make it work some more with File::Find later, Thanks again, bye

[rdboisvert]

Closing this issue since I am unable to satisfy this request.