| Server IP : 216.250.13.251 / Your IP : 216.73.217.100 Web Server : nginx/1.24.0 System : Linux gunay 6.8.0-134-generic #134-Ubuntu SMP PREEMPT_DYNAMIC Fri Jun 26 18:43:11 UTC 2026 x86_64 User : root ( 0) PHP Version : 7.4.33 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : OFF Directory : /proc/self/root/usr/share/perl/5.38/ExtUtils/CBuilder/Platform/ |
Upload File : |
package ExtUtils::CBuilder::Platform::android;
use warnings;
use strict;
use File::Spec;
use ExtUtils::CBuilder::Platform::Unix;
use Config;
our $VERSION = '0.280238'; # VERSION
our @ISA = qw(ExtUtils::CBuilder::Platform::Unix);
# The Android linker will not recognize symbols from
# libperl unless the module explicitly depends on it.
sub link {
my ($self, %args) = @_;
if ($self->{config}{useshrplib} eq 'true') {
$args{extra_linker_flags} = [
$self->split_like_shell($args{extra_linker_flags}),
'-L' . $self->perl_inc(),
'-lperl',
$self->split_like_shell($Config{perllibs}),
];
}
# Several modules on CPAN rather rightfully expect being
# able to pass $so_file to DynaLoader::dl_load_file and
# have it Just Work. However, $so_file will more likely
# than not be a relative path, and unless the module
# author subclasses MakeMaker/Module::Build to modify
# LD_LIBRARY_PATH, which would be insane, Android's linker
# won't find the .so
# So we make this all work by returning an absolute path.
my($so_file, @so_tmps) = $self->SUPER::link(%args);
$so_file = File::Spec->rel2abs($so_file);
return wantarray ? ($so_file, @so_tmps) : $so_file;
}
1;