view release on metacpan or  search on metacpan

lib/FastGlob.pm  view on Meta::CPAN

    }
    @_ = @res;
        @res = ();
    }


    for (@_) {
    # check for and do  tilde expansion
    if ( /^\~([^${dirsep}]*)/ ) {
        my $usr = $1;
        my $usrdir = ( ($1 eq "") ? getpwuid($<) : getpwnam($usr) )[7];
        if ($usrdir ne "" ) {
                s/^\~\Q$usr\E/$usrdir/;
        push(@res, $_);
        }
    } else {
        push(@res, $_);
        }
    }
    @_ = @res;
    @res = ();