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/Esjis.pm  view on Meta::CPAN

            my $home = Mac::Files::FindFolder(
                Mac::Files::kOnSystemDisk(),
                Mac::Files::kDesktopFolderType(),
            );
            return $home if $home and Esjis::d($home);
        };
    }

    # Desperation on any platform
    SCOPE: {
        # On some platforms getpwuid dies if called at all
        local $SIG{'__DIE__'} = '';
        my $home = CORE::eval q{ (getpwuid($<))[7] };
        return $home if $home and Esjis::d($home);
    }

    croak "Could not locate current user's home directory";
}

#
# via File::HomeDir::Unix 1.00
#
sub my_home {

lib/Esjis.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 ! Esjis::d($home)) {
        $home = undef;
    }
    return $home;
}