| Subject: | support for XSLoader |
Please add support for XSLoader, it is much faster than DynaLoader.
DynaLoader:
perl -MDigest::MD5 -e1 0,15s user 0,00s system 92% cpu 0,162 total
perl -MDigest::MD5 -e1 0,14s user 0,01s system 92% cpu 0,162 total
perl -MDigest::MD5 -e1 0,14s user 0,01s system 93% cpu 0,160 total
XSLoader:
perl -MDigest::MD5 -e1 0,11s user 0,00s system 94% cpu 0,116 total
perl -MDigest::MD5 -e1 0,09s user 0,02s system 94% cpu 0,116 total
perl -MDigest::MD5 -e1 0,09s user 0,02s system 94% cpu 0,117 total
--- /usr/lib/perl5/i386-linux/Digest/MD5.pm- 2003-12-08 16:35:44 +0000
+++ /usr/lib/perl5/i386-linux/Digest/MD5.pm 2005-06-25 21:44:34 +0000
@@ -9,8 +9,6 @@ require Exporter;
*import = \&Exporter::import;
@EXPORT_OK = qw(md5 md5_hex md5_base64);
-require DynaLoader;
-@ISA=qw(DynaLoader);
eval {
require Digest::base;
@@ -23,6 +21,12 @@ if ($@) {
eval {
+ require XSLoader;
+ XSLoader::load('Digest::MD5', $VERSION);
+ 1;
+} or eval {
+ require DynaLoader;
+ local @ISA=qw(DynaLoader);
Digest::MD5->bootstrap($VERSION);
};
if ($@) {
End of patch
--
Alexey Tourbin
ALT Linux Team