Hello,

I'm interested in adopting the Devel::CallParser module. If you can grant me 
the privilege I will release the next version.

This Is a Dependancy for BEGIN::Lift which I use for Object::Proto::Sugar, 
locally I’ve patched it to install on hardened Perls with the following edit 
(where paths cannot be relative).

@@ -3,6 +3,7 @@ package t::LoadXS;
 use warnings;
 use strict;

+use Cwd ();
 use DynaLoader ();
 use ExtUtils::CBuilder ();
 use ExtUtils::ParseXS ();
@@ -26,6 +27,7 @@ sub load_xs($$$) {
        my($so_file, @so_tmps) = $cb->link(objects => [ $o_file, @$extralibs ],
                                                module_name => "t::$basename");
        push @todelete, $so_file, @so_tmps;
+       $so_file = Cwd::abs_path($so_file);
        my $boot_symbol = "boot_t__$basename";
        @DynaLoader::dl_require_symbols = ($boot_symbol);
        my $so_handle = DynaLoader::dl_load_file($so_file, 0);

I have confirmed this change locally in three Debian docker containers for 
5.12, 5.18.4 and 5.40 with all the tests passing, However I see various other 
test failures for different perl versions and OS that I’ve not looked too 
deeply into yet. If I’m granted the privilege I will look into these more 
carefully. 

Regards,

Robert.

Reply via email to