diff options
Diffstat (limited to 'lib/PublicInbox/Spawn.pm')
-rw-r--r-- | lib/PublicInbox/Spawn.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/PublicInbox/Spawn.pm b/lib/PublicInbox/Spawn.pm index 1ee40503..762a0549 100644 --- a/lib/PublicInbox/Spawn.pm +++ b/lib/PublicInbox/Spawn.pm @@ -295,14 +295,14 @@ sub spawn ($;$$) { } sub popen_rd { - my ($cmd, $env, $opts) = @_; + my ($cmd, $env, $opt) = @_; pipe(my ($r, $w)) or die "pipe: $!\n"; - $opts ||= {}; - $opts->{1} = fileno($w); - my $pid = spawn($cmd, $env, $opts); + $opt ||= {}; + $opt->{1} = fileno($w); + my $pid = spawn($cmd, $env, $opt); return ($r, $pid) if wantarray; my $ret = gensym; - tie *$ret, 'PublicInbox::ProcessPipe', $pid, $r; + tie *$ret, 'PublicInbox::ProcessPipe', $pid, $r, @$opt{qw(cb arg)}; $ret; } |