Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

LEONT / ExtUtils-Builder-Compiler-0.025 / lib / ExtUtils / Builder / Profile / Perl.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
—
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107

              
package ExtUtils::Builder::Profile::Perl;
$ExtUtils::Builder::Profile::Perl::VERSION = '0.025';
use strict;
use warnings;
use ExtUtils::Helpers 0.027 'split_like_shell';
use File::Spec::Functions qw/catdir/;
sub _get_var {
        my ($config, $opts, $key) = @_;
        return delete $opts->{$key} // $config->get($key);
}
sub _split_var {
        my ($config, $opts, $key) = @_;
        return delete $opts->{$key} // [ split_like_shell($config->get($key)) ];
}
sub process_compiler {
        my ($class, $compiler, $opts) = @_;
        my $config = delete $opts->{config};
        my $incdir = catdir(_get_var($config, $opts, 'archlibexp'), 'CORE');
        my $os = _get_var($config, $opts, 'osname');
        my $osver = _get_var($config, $opts, 'osvers');
        my ($osmajor) = $osver =~ /^(\d+)/;
        if ($os eq 'darwin' && $^X eq '/usr/bin/perl' && $osmajor >= 18) {
                $compiler->add_argument(value => [ '-iwithsysroot', $incdir ], ranking => $compiler->default_include_ranking + 1);
        } else {
                $compiler->add_include_dirs([$incdir], ranking => sub { $_[0] + 1 });
        }
        $compiler->add_argument(ranking => 60, value => _split_var($config, $opts, 'ccflags'));
        $compiler->add_argument(ranking => 65, value => _split_var($config, $opts, 'optimize'));
        return;
}
my $rpath_regex = qr/ ( (?<! \w ) (?: -Wl,-R | -Wl,-rpath | -R\ ? ) \S+ ) /x;
my %needs_relinking = map { $_ => 1 } qw/MSWin32 cygwin aix VMS/;
sub process_linker {
        my ($class, $linker, $opts) = @_;
        my $config = delete $opts->{config};
        $linker->add_argument(ranking => 60, value => _split_var($config, $opts, 'ldflags'));
        if ($linker->export eq 'some') {
                $linker->add_option_filter(sub {
                        my ($self, $from, $to, %opts) = @_;
                        $opts{dl_name} //= $opts{module_name} if $opts{module_name};
                        return ($from, $to, %opts);
                });
        }
        my $os = _get_var($config, $opts, 'osname');
        if ($linker->type eq 'executable' or $linker->type eq 'shared-library' or ($linker->type eq 'loadable-object' and $needs_relinking{$os})) {
                my ($libperl, $libext, $so) = map { _get_var($config, $opts, $_) } qw/libperl lib_ext so/;
                my ($lib) = $libperl =~ / \A (?:lib)? ( \w* perl \w* ) (?: \. $so | $libext) \b /msx;
                $linker->add_libraries([$lib], ranking => sub { $_[0] - 1 });
                my $libdir = catdir(_get_var($config, $opts, 'archlibexp'), 'CORE');
                $linker->add_library_dirs([$libdir]);
                $linker->add_argument(ranking => 80, value => _split_var($config, $opts, 'perllibs'));
        }
        if ($linker->type eq 'executable') {
                my $rpath = $opts->{rpath} // [ split_like_shell($config->get('ccdlflags') =~ $rpath_regex) ];
                $linker->add_argument(ranking => 40, value => $rpath) if @{$rpath};
        }
        return;
}
1;
# ABSTRACT: A profile for compiling and linking against perl
__END__
=pod
=encoding UTF-8
=head1 NAME
ExtUtils::Builder::Profile::Perl - A profile for compiling and linking against perl
=head1 VERSION
version 0.025
=head1 SYNOPSIS
 $planner->load_module('ExtUtils::Builder::AutoDetect::C',
    profile => '@Perl',
 );
=head1 DESCRIPTION
This is a profile for compiling against perl, whether you're compiling an XS extension or embedding it into your application.
=head1 AUTHOR
Leon Timmermans <fawaka@gmail.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2012 by Leon Timmermans.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut