Subject: | support for XSLoader |
Please add support for XSLoader -- it's noticeably faster than
DynaLoader. (I noticed that File::Find uses Scalar::Util, so
loading File::Find I end up loading DynaLoader.)
--- Scalar-List-Utils-1.17/lib/List/Util.pm- 2005-05-23 18:06:40 +0400
+++ Scalar-List-Utils-1.17/lib/List/Util.pm 2005-06-25 12:03:21 +0400
@@ -18,10 +18,15 @@ eval {
# PERL_DL_NONLAZY must be false, or any errors in loading will just
# cause the perl code to be tested
local $ENV{PERL_DL_NONLAZY} = 0 if $ENV{PERL_DL_NONLAZY};
- require DynaLoader;
- local @ISA = qw(DynaLoader);
- bootstrap List::Util $XS_VERSION;
- 1
+ eval {
+ require XSLoader;
+ XSLoader::load('List::Util', $XS_VERSION);
+ 1;
+ } or do {
+ require DynaLoader;
+ local @ISA = qw(DynaLoader);
+ bootstrap List::Util $XS_VERSION;
+ };
};
eval <<'ESQ' unless defined &reduce;
End of patch
--
Alexey Tourbin
ALT Linux Team