Current Path: > > usr > share > perl5 > > vendor_perl > ExtUtils > CBuilder > Platform
Operation : Linux premium131.web-hosting.com 4.18.0-553.44.1.lve.el8.x86_64 #1 SMP Thu Mar 13 14:29:12 UTC 2025 x86_64 Software : Apache Server IP : 162.0.232.56 | Your IP: 216.73.216.111 Domains : 1034 Domain(s) Permission : [ 0755 ]
Name | Type | Size | Last Modified | Actions |
---|---|---|---|---|
Windows | Directory | - | - | |
Unix.pm | File | 1046 bytes | November 22 2017 16:20:35. | |
VMS.pm | File | 10288 bytes | November 22 2017 16:20:35. | |
Windows.pm | File | 8961 bytes | November 22 2017 16:20:35. | |
aix.pm | File | 625 bytes | November 22 2017 16:20:35. | |
android.pm | File | 1216 bytes | November 22 2017 16:20:35. | |
cygwin.pm | File | 932 bytes | November 22 2017 16:20:35. | |
darwin.pm | File | 520 bytes | November 22 2017 16:20:35. | |
dec_osf.pm | File | 428 bytes | November 22 2017 16:20:35. | |
linux.pm | File | 586 bytes | October 16 2019 21:03:08. | |
os2.pm | File | 2411 bytes | November 22 2017 16:20:35. |
package ExtUtils::CBuilder::Platform::android; use warnings; use strict; use File::Spec; use ExtUtils::CBuilder::Platform::Unix; use Config; our $VERSION = '0.280230'; # 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;
SILENT KILLER Tool