Репозиторий Sisyphus
Последнее обновление: 1 октября 2023 | Пакетов: 18631 | Посещений: 37569404
en ru br
Репозитории ALT
S:1.08-alt4.2
5.1: 1.08-alt1
www.altlinux.org/Changes

Группа :: Разработка/Perl
Пакет: perl-Newt

 Главная   Изменения   Спек   Патчи   Sources   Загрузить   Gear   Bugs and FR  Repocop 

Патч: newt-perl-1.08-lang.patch
Скачать


The AUTOLOAD function in Newt.pm looks at strerror(errno) to see
whether the constant() function (in Newt.xs) has returned EINVAL.
strerror(errno) is returned in the locale's language, so won't
always match /Invalid/.  constant() should never fail with
EINVAL anyway, so just ignore this case.
--- Newt-1.08/Newt.pm.lang	2003-07-31 12:01:52.000000000 +0100
+++ Newt-1.08/Newt.pm	2003-07-31 12:02:26.000000000 +0100
@@ -220,13 +220,8 @@
   croak "& not defined" if $constname eq 'constant';
   my $val = constant($constname, @_ ? $_[0] : 0);
   if ($! != 0) {
-    if ($! =~ /Invalid/) {
       $AutoLoader::AUTOLOAD = $AUTOLOAD;
       goto &AutoLoader::AUTOLOAD;
-    }
-    else {
-      croak "Your vendor has not defined Newt macro $constname";
-    }
   }
   *$AUTOLOAD = sub { $val };
   goto &$AUTOLOAD;
 
дизайн и разработка: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
текущий майнтейнер: Michael Shigorin