"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "src/core.c/Process.pm6" between
rakudo-2020.09.tar.gz and rakudo-2020.10.tar.gz

About: Rakudo is a compiler for the Raku Pogramming Language (formerly known as Perl 6).

Process.pm6  (rakudo-2020.09)	:	Process.pm6  (rakudo-2020.10)
skipping to change at line 80		skipping to change at line 80
$env<HOMEDRIVE> && $env<HOMEPATH> && ($HOME		$env<HOMEDRIVE> && $env<HOMEPATH> && ($HOME
= nqp::concat($env<HOMEDRIVE>, $env<HOMEPATH>));		= nqp::concat($env<HOMEDRIVE>, $env<HOMEPATH>));
}		}
$HOME = IO::Path.new($HOME) if $HOME;		$HOME = IO::Path.new($HOME) if $HOME;
PROCESS::<$HOME> := $HOME # bind container so Nil default is kept		PROCESS::<$HOME> := $HOME # bind container so Nil default is kept
}		}
{		{
sub fetch($what) {		sub fetch($what) {
once if !Rakudo::Internals.IS-WIN && try { qx/id/ } -> $id {		once if !Rakudo::Internals.IS-WIN && try { qx/LC_MESSAGES=POSIX id/ } -> $id {
if $id ~~ m/^		if $id ~~ m/^
[ uid "=" $<uid>=(\d+) ]		[ uid "=" $<uid>=(\d+) ]
[ "(" $<user>=(<-[ ) ]>+) ")" ]		[ "(" $<user>=(<-[ ) ]>+) ")" ]
\s+		\s+
[ gid "=" $<gid>=(\d+) ]		[ gid "=" $<gid>=(\d+) ]
[ "(" $<group>=(<-[ ) ]>+) ")" ]		[ "(" $<group>=(<-[ ) ]>+) ")" ]
/ {		/ {
PROCESS::<$USER> := IntStr.new(+$<uid>,~$<user>);		PROCESS::<$USER> := IntStr.new(+$<uid>,~$<user>);
PROCESS::<$GROUP> := IntStr.new(+$<gid>,~$<group>);		PROCESS::<$GROUP> := IntStr.new(+$<gid>,~$<group>);
}		}
End of changes. 1 change blocks.
1 lines changed or deleted		1 lines changed or added

---