view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

    - myldr/Makefile.PL fix: Clean up myldr/usernamefrompwuid.h.
    - Silence warning in myldr/internals.c.
    - Silence warnings seen on Irix from myldr/env.c.
    - Skip most tests in 10-parl-generation.t if there is no parl.
    - Skip loading ActiveState Perl's "sitecustomize.pl" in par.pl.
    - Load modules via require and other files via do.
    - The parl-regeneration-for-every-pp-call addition of the 0.958 release
      should now also work for static perls.

  [New features]
    - Adressing RT ticket #6612: Now using getpwuid() to determine the
      user name if supported by the OS.

0.959  2006-11-12
  [This is just a hotfix release because 0.958 lacked META.yml. One day, I will]
  switch from Module::Install to Module::Build...

0.958  2006-10-25
  [Bug fixes, etc.]
    - myldr/Makefile.PL fix: make static.o depend on mktmpdir.c, my_perl.c,
      my_par.c. (Roderich Schupp)

lib/PAR/SetupTemp.pm  view on Meta::CPAN

    last;
  }
  return $temp_path;
}

# tries hard to find out the name of the current user
sub _find_username {
  my $username;
  my $pwuid;
  # does not work everywhere:
  eval {($pwuid) = getpwuid($>) if defined $>;};

  if ( defined(&Win32::LoginName) ) {
    $username = &Win32::LoginName;
  }
  elsif (defined $pwuid) {
    $username = $pwuid;
  }
  else {
    $username = $ENV{USERNAME} || $ENV{USER} || 'SYSTEM';
  }