introduce bg_command object that enable to fork a sub that give back data

through STDOUT a la run_program::get_stdout but w/ arbitrary perl code instead
of external program and in background

1 files changed, 23 insertions, 0 deletions

diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm
index 4ebce7249..0a53ffa39 100644
--- a/perl-install/run_program.pm
+++ b/perl-install/run_program.pm
@@ -127,3 +127,26 @@ sub raw {
     }
 
 }
+
+# run in background a sub that give back data through STDOUT a la run_program::get_stdout but w/ arbitrary perl code instead of external program
+package bg_command;
+
+sub new {
+    my ($class, $sub) = @_;
+    my $o = bless {}, $class;
+    if ($o->{pid} = open(my $fd, "-|")) {
+        $o->{fd} = $fd;
+        $o;
+    } else {
+        $sub->();
+        c::_exit(0);
+    }
+}
+
+sub DESTROY {
+    my ($o) = @_;
+    close $o->{fd} or warn "kid exited $?";
+    waitpid $o->{pid}, 0;
+}
+
+1;