lib/PublicInbox/LeiEditSearch.pm | 2 +- t/lei-q-save.t | 3 +++ diff --git a/lib/PublicInbox/LeiEditSearch.pm b/lib/PublicInbox/LeiEditSearch.pm index 13713d24570906dfc6d2b88720b3bf2a1188abd8..82dfbf63c411356138f27b611986747b0e006fe3 100644 --- a/lib/PublicInbox/LeiEditSearch.pm +++ b/lib/PublicInbox/LeiEditSearch.pm @@ -19,7 +19,7 @@ require PublicInbox::PktOp; my ($op_c, $op_p) = PublicInbox::PktOp->pair; # $op_p will EOF when $EDITOR is done $op_c->{ops} = { '' => [$lss->can('edit_done'), $lss, $lei] }; - $lei->send_exec_cmd([ @$lei{qw(0 1 2)}, $op_p ], \@cmd, {}); + $lei->send_exec_cmd([ @$lei{qw(0 1 2)}, $op_p->{op_p} ], \@cmd, {}); } *_complete_edit_search = \&PublicInbox::LeiUp::_complete_up; diff --git a/t/lei-q-save.t b/t/lei-q-save.t index 694b33b2e1998914fc0e9272a9b69e8f8dd3327c..6c5920883a7cbae9481c982a2f611b1772834ca0 100644 --- a/t/lei-q-save.t +++ b/t/lei-q-save.t @@ -195,5 +195,8 @@ my $shared = sum(map { -f $_ ? -s _ : () } ( glob("$v2s/git/0.git/objects/*/*"))); ok($shared < $orig, 'fewer bytes stored with --shared') or diag "shared=$shared orig=$orig"; + + lei_ok([qw(edit-search), $v2s], { VISUAL => 'cat', EDITOR => 'cat' }); + like($lei_out, qr/^\[lei/sm, 'edit-search can cat'); }); done_testing;