Репозитории ALT
Группа :: Разработка/Perl
Пакет: perl-Term-ReadLine-Gnu
Главная Изменения Спек Патчи Sources Загрузить Gear Bugs and FR Repocop
Патч: perl-Term-ReadLine-Gnu-at-Gnu.pm-use-XSLoader.patch
Скачать
Скачать
commit ebc170f788feb3402bf9cbf9cc1ceef1bb931a2a
Author: Alexey Tourbin <at@altlinux.ru>
Date: Fri Oct 13 18:49:15 2006 +0400
Gnu.pm: use XSLoader
diff --git a/Gnu.pm b/Gnu.pm
index 0e16977..c6730db 100755
--- a/Gnu.pm
+++ b/Gnu.pm
@@ -72,7 +72,6 @@ END
{
use Exporter ();
- use DynaLoader;
use vars qw($VERSION @ISA @EXPORT_OK);
$VERSION = '1.22';
@@ -81,8 +80,7 @@ END
# `Term::ReadLine::Gnu::XS' as a method.
# The namespace of Term::ReadLine::Gnu::AU is searched before ones
# of other classes
- @ISA = qw(Term::ReadLine::Gnu::AU Term::ReadLine::Stub
- Exporter DynaLoader);
+ @ISA = qw(Term::ReadLine::Gnu::AU Term::ReadLine::Stub Exporter);
@EXPORT_OK = qw(RL_PROMPT_START_IGNORE RL_PROMPT_END_IGNORE
NO_MATCH SINGLE_MATCH MULT_MATCH
@@ -102,7 +100,8 @@ END
RL_STATE_MULTIKEY RL_STATE_VICMDONCE
RL_STATE_DONE);
- bootstrap Term::ReadLine::Gnu $VERSION; # DynaLoader
+ require XSLoader;
+ XSLoader::load('Term::ReadLine::Gnu', $VERSION);
}
require Term::ReadLine::Gnu::XS;