"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

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)