Perl Term :: ReadLine :: Gnu信号处理的难点

我正在使用Term :: ReadLine :: Gnu并遇到了信号处理问题.鉴于下面的脚本和发送到脚本的TERM信号,在按下回车键之前,不会触发TERM信号的处理程序.使用Term :: ReadLine：Perl不会发生这种情况.

我已经读过Term :: ReadLine :: Gnu有自己的内部信号处理程序,但坦率地说,我不知道如何使用它们.

我已经审查过http://search.cpan.org/~hayashi/Term-ReadLine-Gnu-1.20/Gnu.pm#Term::ReadLine::Gnu_Variables尝试将rl_catch_signals变量设置为0,但这没有帮助.理想情况下,我想与Gnu信号处理程序一起工作,但我也会满足于禁用它们.

为了绝对具体,我需要TERM处理程序在接收到信号后触发,而不是等待按下回车键.

任何帮助或建议当然感谢！

#!/usr/bin/perl

use Strict;
use warnings;
use Term::readLine;

$SIG{TERM} = sub { print "I got a TERM\n"; exit; };

my $term = Term::readLine->new('Term1');
$term->ornaments(0);
my $prompt = 'cmd> ';
while ( defined (my $cmd = $term->readline($prompt)) ) {
    $term->addhistory($cmd) if $cmd !~ /\S||\n/;
    chomp($cmd);
    if ($cmd =~ /^Help$/) {
        print "Help Menu\n";
    }
    else {
        print "Nothing\n";
    }
}

bash$PERL_SIGNALS=unsafe perl readline-test.pl

#~ $SIG{TERM} = sub { print "I got a TERM\n"; exit; };
use POSIX;
sigaction SIGTERM,new POSIX::SigAction sub { print "I got a TERM\n"; exit; };