Репозитории ALT
Группа :: Разработка/Perl
Пакет: perl-Term-ReadLine-Gnu
Главная Изменения Спек Патчи Sources Загрузить Gear Bugs and FR Repocop
Патч: perl-Term-ReadLine-Gnu-at-Gnu_XS.pm-debian-10term.patch
Скачать
Скачать
commit b421f028cb23bf1236979cfca9e3a343e0f050ce
Author: Alexey Tourbin <at@altlinux.ru>
Date: Wed Oct 25 17:50:14 2006 +0400
debian/patches/10term.dpatch
10term.dpatch by Niko Tyni <ntyni@iki.fi>
DP: Fix uninitialized value message
DP: (#99843, patch by Nicolas Bertolissio)
diff --git a/Gnu/XS.pm b/Gnu/XS.pm
index 449c9a0..3faf335 100755
--- a/Gnu/XS.pm
+++ b/Gnu/XS.pm
@@ -368,7 +362,7 @@ sub ornaments {
return $rl_term_set unless @_;
$rl_term_set = shift;
$rl_term_set ||= ',,,';
- $rl_term_set = $term_no_ue{$ENV{TERM}} ? 'us,me,,' : 'us,ue,,'
+ $rl_term_set = $term_no_ue{defined($ENV{TERM}) ? $ENV{TERM} : ''} ? 'us,me,,' : 'us,ue,,'
if $rl_term_set eq '1';
my @ts = split /,/, $rl_term_set, 4;
my @rl_term_set