malloc(): memory corruption Aborted (core dumped)

[zoffixznet]

Moved from Raku/doc#2398

$ perl6 -v
This is Rakudo version 2018.06 built on MoarVM version 2018.06 implementing Perl 6.c.

$ rpm -qa rakudo\* 
rakudo-pkg-2018.06-01.x86_64

sub RunNoShellAll( Str $RunString, Int $StdOut, Int $StdErr, Int $Code --> List )
malloc(): memory corruption Aborted (core dumped)

sub RunNoShellAll( Str $RunString, Int $StdOut, Int $StdErr, Int $Code, --> List )
free(): invalid next size (fast) Aborted (core dumped)

Removing --> List completely restored functionality

The rest of the sub:

sub RunNoShellAll( Str $RunString, Int $StdOut, Int $StdErr, Int $Code ) {
   # returns  
   #    StdOut as Str $ReturnStr
   #    StdErr as Str $ReturnErr
   #    Return Code ($?) as Int $RtnCode

   # $RunString   Comnad line to run without a shell
   # $StdOur      read and return the STDOUT       1=yes, 0=no
   # $StdErr      read and return the STDERR       1=yes, 0=no    
   # $Code        read and return the return code  1=yes, 0=no 
  
   # Note: If reading the STDERR, it is PRESUMED you also will be reading the STDIN.
   #       If only reading the return code, it is presumed that you want the STDERR
   #          and STDIN to be silent.
  
   # place each value into a cell in an array.  Keep quoted 
   # values together
   # print "Run String = <$RunString>\n";
   
    
   my Buf $BufStdErr; 
   my Str $ReturnStr = ""; 
   my Str $ReturnErr = "";
   my Int $RtnCode = 0;
   my $proc;
   
   my @RunArray  = $RunString ~~ m:global/ [ '"' <-[ " ]> * '"' | \S+ ] /;
   
   # shells remove the quote, so you have to here as well
   for @RunArray.kv -> $index, $value { @RunArray[$index] ~~ s:g/\"//; };
   # for @RunArray.kv -> $index, $value { say "\$RunArray[$index] = <$value>"; }; print "\n";
   
   if    $StdErr  { $proc      = run( @RunArray, :err, :out, :enc<utf8-c8> ); }  
   elsif $StdOut  { $proc      = run( @RunArray,       :out, :enc<utf8-c8> ); }  # STDERR goes to the terminal
   else           { $proc      = run( @RunArray, :err, :out, :enc<utf8-c8> ); }  # STDIN and STDERR are silent
   
   if  $Code    { $RtnCode   = $proc.status; } 
   if  $StdErr  { $ReturnErr = $proc.err.slurp; }
   if  $StdOut  { $ReturnStr = $proc.out.slurp; } 
   
   return( $ReturnStr, $ReturnErr, $RtnCode );
}

[ToddAndMargo]

I hate to say this, but this is intermittent. Some times it does and sometimes it doesn't.

Is there a core dump somewhere after this error happens I could attach?

[zoffixznet]

We need a runnable program we can run to reproduce the error, regardless of whether it's intermittent or not.

[ToddAndMargo]

Requires Fedora 28 or similar

RunNoShellTest.pl6
http://vpaste.net/JnhDP

RunNoShell.pm6
This works
http://vpaste.net/UgZDB

This is the problem one:
http://vpaste.net/kd3SA

[ToddAndMargo]

how about my question as to the core dumps?

[MasterDuke17]

@Kaiepi did you create a PR with your fix?

[Kaiepi]

No, that was a typo in the commit I made