Term :: ReadLine :: Gnuで大文字と小文字を区別しない補完を行うにはどうすればよいですか？

Question

Term::ReadLine::Gnuを使用すると、大文字と小文字を区別しない補完ができないようです。次のスクリプトの例をご覧ください：

use strict; 
use warnings; 
use 5.010; 
use Term::ReadLine; 

my $term = Term::ReadLine->new('test'); 
say "Using " . $term->ReadLine; 

if (my $attr = $term->Attribs) { 
    $term->ornaments(0); 
    $attr->{basic_word_break_characters}  = ". \t\n"; 
    $attr->{completer_word_break_characters} = " \t\n"; 
    $attr->{completion_function} = \&complete_word; 
} # end if attributes 

my @words = qw(apple approve Adam America UPPER UPPERCASE UNUSED); 

sub complete_word 
{ 
    my ($text, $line, $start) = @_; 
    return grep(/^$text/i, @words); 
} # end complete_word 

while (1) { 
    $_ = $term->readline(']'); 
    last unless /\S/;    # quit on empty input 
} # end while 1 

complete_wordは大文字と小文字を区別しません。私がTerm::ReadLine::Perl（PERL_RL=Perl perl script.plを実行することによって）を実行すると、期待どおりに動作します。 a<TAB><TAB>と入力すると、すべての4ワードがリストされます。 u<TAB><TAB>と入力するとuがUに変換され、3語が表示されます。

代わりにTerm::ReadLine::Gnu（PERL_RL=Gnu perl script.plまたはちょうどperl script.pl）を使用すると、大文字と小文字が区別されます。 a<TAB>と入力すると、appとなります。 u<TAB><TAB>と入力すると補完物は表示されません。

私もにset completion-ignore-case onがありますが、それでもここでは機能しません。 （ただし、bashでは正常に動作します）

Term::ReadLine::Gnuには大文字と小文字を区別しない補完を行う方法はありますか？

Answer 1

Term::ReadLine::Gnu::XS::_trp_completion_function()（ユーザー定義の完了関数のラッパー）に問題があるようです。

あなたのマッチはあなたのcomplete_word()関数から正常に取得されたが、その後ラッパーから次のスニペットは、独自の大文字と小文字を区別した一致を行います。

for (; $_i <= $#_matches; $_i++) { 
    return $_matches[$_i] if ($_matches[$_i] =~ /^\Q$text/); 
} 

@_matchesが完了し、あなたのcomplete_word()と$textの結果であるがこれまでのテキスト。

答えは何ではないようなので、それが見え、何は大文字と小文字を区別しない補完を行うためにTerm::ReadLine::Gnuを取得する方法をサポートしていないがあります。 Term::ReadLine::Gnu::XS::_trp_completion_function（醜いハック）を無効にするか、直接XS.pm（おそらくもっと醜いハック）を修正する必要があります。

EDIT：使用Term::ReadLine::Gnuバージョン：1.20