view release on metacpan or  search on metacpan

lib/Win32/CommandLine.pm  view on Meta::CPAN

                    @g = ($base);
                }
                else {
                    my $should_glob = _has_glob_char($p);
                    # print "globstar of `$p`\n";
                    my @g_star = $should_glob ? File::Globstar::globstar( $p, $glob_flags ) : ($base);
                    # File::Globstar doesn't maintain bsd_glob sorting; sort here
                    # * use case folding over case conversion, when available; (Unicode::CaseFold::fc() or Unicode::Collate->sort() are alternatives)
                    # * ref: https://www.perlmonks.org/?node_id=1228944 @@ https://archive.is/4tqfK , https://www.webcitation.org/75hjb1t3m , https://goo.gl/JUQsL3
                    # * ref: http://www.howtobuildsoftware.com/index.php/how-do/cht/perl-version-dependent-fallback-code @@ https://archive.is/HdQt4 , https://goo.gl/gv5Kik
                    if ( $] ge '5.016' ) {
                        ## no critic ( ProhibitAmpersandSigils )
                        @g_star = sort { ( &CORE::fc($a) ) cmp ( &CORE::fc($b) ) } @g_star;
                        }
                    else { @g_star = sort { ( lc $a ) cmp ( lc $b ) } @g_star; }
                    ## ToDO: consider POSIX compatible collation (base on LC_COLLATE) ... `@g_star = sort { POSIX::strcoll($a, $b) } @g_star;`
                    # print "g_star = [ @g_star ]\n";
                    # print "s = $s\n";
                    if ( ! $opt{nullglob} && ( scalar(@g_star) == 0 ) ) { @g_star = ($base); }
                    if ( $opt{dashprefix} ) {
                        foreach (@g_star) {