Save one Scalar allocation for each run/shell/QX

rakudo · Jan 26, 2020 · 392af08 · 392af08
1 parent 37ddd59
commit 392af08
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/core.c/Proc.pm6 b/src/core.c/Proc.pm6
@@ -234,7 +234,7 @@ proto sub run(|) {*}
 multi sub run(*@args where .so, :$in = '-', :$out = '-', :$err = '-',
         Bool :$bin, Bool :$chomp = True, Bool :$merge,
         Str  :$enc, Str:D :$nl = "\n", :$cwd = $*CWD, :$env) {
-    my $proc = Proc.new(:$in, :$out, :$err, :$bin, :$chomp, :$merge, :$enc, :$nl);
+    my $proc := Proc.new(:$in, :$out, :$err, :$bin, :$chomp, :$merge, :$enc, :$nl);
     $proc.spawn(@args, :$cwd, :$env);
     $proc
 }
@@ -243,13 +243,13 @@ proto sub shell($, *%) {*}
 multi sub shell($cmd, :$in = '-', :$out = '-', :$err = '-',
         Bool :$bin, Bool :$chomp = True, Bool :$merge,
         Str  :$enc, Str:D :$nl = "\n", :$cwd = $*CWD, :$env) {
-    my $proc = Proc.new(:$in, :$out, :$err, :$bin, :$chomp, :$merge, :$enc, :$nl);
+    my $proc := Proc.new(:$in, :$out, :$err, :$bin, :$chomp, :$merge, :$enc, :$nl);
     $proc.shell($cmd, :$cwd, :$env);
     $proc
 }
 
 sub QX($cmd, :$cwd = $*CWD, :$env) {
-    my $proc = Proc.new(:out);
+    my $proc := Proc.new(:out);
     $proc.shell($cmd, :$cwd, :$env);
     $proc.out.slurp(:close) // Failure.new("Unable to read from '$cmd'")
 }