/usr/share/perl5/auto/Inline/check_module.al is in libinline-perl 0.49-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | # NOTE: Derived from blib/lib/Inline.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Inline;
#line 868 "blib/lib/Inline.pm (autosplit into blib/lib/auto/Inline/check_module.al)"
#==============================================================================
# Check to see if code has already been compiled
#==============================================================================
sub check_module {
my ($module, $module2);
my $o = shift;
return $o->install if $o->{CONFIG}{_INSTALL_};
if ($o->{CONFIG}{NAME}) {
$module = $o->{CONFIG}{NAME};
}
elsif ($o->{API}{pkg} eq 'main') {
$module = $o->{API}{script};
my($v,$d,$file) = File::Spec->splitpath($module);
$module = $file;
$module =~ s|\W|_|g;
$module =~ s|^_+||;
$module =~ s|_+$||;
$module = 'FOO' if $module =~ /^_*$/;
$module = "_$module" if $module =~ /^\d/;
}
else {
$module = $o->{API}{pkg};
}
$o->{API}{suffix} = $o->{INLINE}{ILSM_suffix};
$o->{API}{directory} = $o->{INLINE}{DIRECTORY};
my $auto_level = 2;
while ($auto_level <= 5) {
if ($o->{CONFIG}{AUTONAME}) {
$module2 =
$module . '_' . substr($o->{INLINE}{md5}, 0, 2 + $auto_level);
$auto_level++;
} else {
$module2 = $module;
$auto_level = 6; # Don't loop on non-autoname objects
}
$o->{API}{module} = $module2;
my @modparts = split /::/, $module2;
$o->{API}{modfname} = $modparts[-1];
$o->{API}{modpname} = File::Spec->catdir(@modparts);
$o->{API}{build_dir} =
File::Spec->catdir($o->{INLINE}{DIRECTORY},
'build',$o->{API}{modpname});
$o->{API}{install_lib} =
File::Spec->catdir($o->{INLINE}{DIRECTORY}, 'lib');
my $inl = File::Spec->catfile($o->{API}{install_lib},"auto",
$o->{API}{modpname},"$o->{API}{modfname}.inl");
$o->{API}{location} =
File::Spec->catfile($o->{API}{install_lib},"auto",$o->{API}{modpname},
"$o->{API}{modfname}.$o->{INLINE}{ILSM_suffix}");
last unless -f $inl;
my %inl;
{ local ($/, *INL);
open INL, $inl or croak M31_inline_open_failed($inl);
%inl = Inline::denter->new()->undent(<INL>);
}
next unless ($o->{INLINE}{md5} eq $inl{md5});
next unless ($inl{inline_version} ge '0.40');
next unless ($inl{Config}{version} eq $Config::Config{version});
next unless ($inl{Config}{archname} eq $Config::Config{archname});
unless (-f $o->{API}{location}) {
warn <<END if $^W;
Missing object file: $o->{API}{location}
For Inline file: $inl
END
next;
}
$o->{INLINE}{object_ready} = 1 unless $o->{CONFIG}{FORCE_BUILD};
last;
}
unshift @::INC, $o->{API}{install_lib};
}
# end of Inline::check_module
1;
|