| Subject: | Switch IPC::SysV to XSLoader |
I've submitted a GitHub PR via https://github.com/mhx/IPC-SysV/pull/3
but I'm also opening one RT ticket as RT seems to be the official ticket system to track this case
as this would give more visibility to this case, not sure I've used the official git repo.
thanks
nicolas
___
p5p has recently switched all CORE modules to XSLoader
for performance reasons during the 5.27 development cycle.
Note, XSLoader is a problem for Perl versions earlier than 5.6,
which at this point can get alternate support, as mentioned
in the upstream case.
Upstream-Case: RT #132080
Upstream-URL: https://rt.perl.org/SelfService/Display.html?id=132080
| Subject: | 0001-Switch-IPC-SysV-to-XSLoader.patch |
From ebe83f6ac1ef435de7245beaf44951c855d74ed8 Mon Sep 17 00:00:00 2001
From: Nicolas R <atoomic@cpan.org>
Date: Tue, 14 Nov 2017 11:02:26 -0600
Subject: [PATCH] Switch IPC::SysV to XSLoader
p5p has recently switched all CORE modules to XSLoader
for performance reasons during the 5.27 development cycle.
Note, XSLoader is a problem for Perl versions earlier than 5.6,
which at this point can get alternate support, as mentioned
in the upstream case.
Upstream-Case: RT #132080
Upstream-URL: https://rt.perl.org/SelfService/Display.html?id=132080
---
lib/IPC/SysV.pm | 8 ++------
1 file changed, 2 insertions(+), 6 deletions(-)
diff --git a/lib/IPC/SysV.pm b/lib/IPC/SysV.pm
index 4f917b4..2c296cd 100644
--- a/lib/IPC/SysV.pm
+++ b/lib/IPC/SysV.pm
@@ -81,14 +81,10 @@ sub AUTOLOAD
BOOT_XS: {
# If I inherit DynaLoader then I inherit AutoLoader and I DON'T WANT TO
- require DynaLoader;
+ use XSLoader ();
- # DynaLoader calls dl_load_flags as a static method.
- *dl_load_flags = DynaLoader->can('dl_load_flags');
+ XSLoader::load( 'IPC::SysV', $VERSION );
- do {
- __PACKAGE__->can('bootstrap') || \&DynaLoader::bootstrap
- }->(__PACKAGE__, $VERSION);
}
1;
--
2.13.6 (Apple Git-96)