diff options
author | Eric Wong <e@80x24.org> | 2021-02-25 10:11:05 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2021-02-26 02:35:50 +0000 |
commit | d3934150d6fef1ce90ac44298e58474913028d32 (patch) | |
tree | bea550cdfdae8a1d964f0d227b91abf2baba5bca /lib/PublicInbox/TestCommon.pm | |
parent | cf7c27cadd9ce7800beedc72513cf12fda77420f (diff) | |
download | public-inbox-d3934150d6fef1ce90ac44298e58474913028d32.tar.gz |
This avoids warnings when redirecting STDIN to a scalarref via run_script().
Diffstat (limited to 'lib/PublicInbox/TestCommon.pm')
-rw-r--r-- | lib/PublicInbox/TestCommon.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/PublicInbox/TestCommon.pm b/lib/PublicInbox/TestCommon.pm index fc32b57f..af1b2e4f 100644 --- a/lib/PublicInbox/TestCommon.pm +++ b/lib/PublicInbox/TestCommon.pm @@ -155,8 +155,8 @@ sub key2script ($) { 'blib/script/'.$key; } -my @io_mode = ([ *STDIN{IO}, '<&' ], [ *STDOUT{IO}, '>&' ], - [ *STDERR{IO}, '>&' ]); +my @io_mode = ([ *STDIN{IO}, '+<&' ], [ *STDOUT{IO}, '+>&' ], + [ *STDERR{IO}, '+>&' ]); sub _prepare_redirects ($) { my ($fhref) = @_; |