perl - 使用 IPC::Run with timeouts 导致 Modification of a read-only value 错误

Question

我正在使用带有超时的 IPC::Run 并且我收到了一个奇怪的错误:尝试在 ${HOME}/perl5/lib/perl5/IPC/Run.pm 第 1693 行修改只读值。

use strict;
use warnings;
use IPC::Run qw(timeout);
​
my $job_command = '/bin/ls';
my $timeout_value = 20;
my $t = timeout($timeout_value);
IPC::Run::run($job_command, undef, undef, undef, $t);

有人有这方面的经验吗？

编辑添加这是使用 perl v5.16.3 和 v5.22.0 使用 IPC::Run 版本 20200505.0 的结果

Answer 1

undef 不是有效参数。

简单使用

IPC::Run::run($job_command, $t);

测试:

use IPC::Run qw( run timeout );

run([ 'perl', '-e', 'sleep' ], timeout(5));

输出:

IPC::Run: timeout on timer #1 at /home/ikegami/usr/perlbrew/perls/5.32.0t/lib/site_perl/5.32.0/IPC/Run.pm line 2951.