Skip to content

Commit

Permalink
#128594: die in a controlled way rather than with a core dump
Browse files Browse the repository at this point in the history
  • Loading branch information
moritz committed Dec 18, 2016
1 parent 5ec6b32 commit fb38190
Showing 1 changed file with 4 additions and 0 deletions.
4 changes: 4 additions & 0 deletions src/core/Proc.pm
Expand Up @@ -15,6 +15,10 @@ my class Proc {
submethod BUILD(:$in = '-', :$out = '-', :$err = '-', :$exitcode,
Bool :$bin, Bool :$chomp = True, Bool :$merge, :$command,
Str:D :$enc = 'utf8', Str:D :$nl = "\n", :$signal --> Nil) {
if $merge {
die "Executing programs with :merge is known to be broken\n"
~ "Please see https://rt.perl.org//Public/Bug/Display.html?id=128594 for the bug report.\n";
}
@!command = |$command if $command;
if nqp::istype($in, IO::Handle) && $in.DEFINITE {
$!in_fh := nqp::getattr(nqp::decont($in), IO::Handle, '$!PIO');
Expand Down

0 comments on commit fb38190

Please sign in to comment.