# NOTE: Derived from blib/lib/Term/ReadLine/Gnu/XS.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package Term::ReadLine::Gnu::XS; #line 183 "blib/lib/Term/ReadLine/Gnu/XS.pm (autosplit into blib/lib/auto/Term/ReadLine/Gnu/XS/rl_bind_keyseq_if_unbound.al)" # rl_bind_keyseq_if_unbound sub rl_bind_keyseq_if_unbound ($$;$) { my ($version) = $Attribs{library_version} =~ /(\d+\.\d+)/; if ($version < 5.0) { carp "rl_bind_keyseq_if_unbound() is not supported. Ignored\n"; return; } if (defined $_[2]) { return _rl_bind_keyseq_if_unbound($_[0], _str2fn($_[1]), _str2map($_[2])); } else { return _rl_bind_keyseq_if_unbound($_[0], _str2fn($_[1])); } } # end of Term::ReadLine::Gnu::XS::rl_bind_keyseq_if_unbound 1;