view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.94  2014-01-13 00:00:00
  - support CaseFolding-6.3.0.txt
  - support Perl 5.18.2
  - created by INABA Hitoshi

0.93  2013-12-29 00:00:00
  - fix quoting after filetest operators
  - Esjis::unlink() deletes read only file too
  - remove PERL5.BATes
  - remove strict.pm_, warnings.pm_, warnings/register.pm_, and feature.pm_
  - truncate(), getpwnam(), and getpwuid() into eval q{}
  - consider Win95Cmd.exe by PERL5SHELL
  - remove $ENV{'COMSPEC'}
  - changed condition for escaping script
  - support ActivePerl 5.18.1.1800 Windows (x86)
  - support ActivePerl 5.18.1.1800 Windows (64-bit, x64)
  - created by INABA Hitoshi

0.92  2013-07-18 00:00:00
  - support JIS8
  - support Arabic

lib/Ekps9566.pm  view on Meta::CPAN

    # This is from the original code, but I'm guessing
    # it means "login directory" and exists on some Unixes.
    elsif (exists $ENV{'LOGDIR'} and $ENV{'LOGDIR'}) {
        $home = $ENV{'LOGDIR'};
    }

    ### More-desperate methods

    # Light desperation on any (Unixish) platform
    else {
        $home = CORE::eval q{ (getpwuid($<))[7] };
    }

    # On Unix in general, a non-existant home means "no home"
    # For example, "nobody"-like users might use /nonexistant
    if (defined $home and ! Ekps9566::d($home)) {
        $home = undef;
    }
    return $home;
}