Репозиторий Sisyphus
Последнее обновление: 1 октября 2023 | Пакетов: 18631 | Посещений: 37820762
en ru br
Репозитории ALT
S:1.46-alt1
5.1: 1.19-alt1
4.1: 1.17a-alt1
4.0: 1.16-alt1
3.0: 1.15-alt1.1
www.altlinux.org/Changes

Группа :: Разработка/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
 
дизайн и разработка: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
текущий майнтейнер: Michael Shigorin