← Index
NYTProf Performance Profile   « line view »
For rbm/rbm
  Run on Wed Feb 12 03:38:15 2020
Reported on Wed Feb 12 04:56:37 2020

Filename/usr/share/perl/5.28/XSLoader.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1212124.43ms4.43msXSLoader::::loadXSLoader::load
0000s0sXSLoader::::bootstrap_inheritXSLoader::bootstrap_inherit
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1# Generated from XSLoader_pm.PL (resolved %Config::Config value)
2# This file is unique for every OS
3
4package XSLoader;
5
6$VERSION = "0.30"; # remember to update version in POD!
7
8#use strict;
9
10package DynaLoader;
11
12# No prizes for guessing why we don't say 'bootstrap DynaLoader;' here.
13# NOTE: All dl_*.xs (including dl_none.xs) define a dl_error() XSUB
14boot_DynaLoader('DynaLoader') if defined(&boot_DynaLoader) &&
15 !defined(&dl_error);
16package XSLoader;
17
18
# spent 4.43ms within XSLoader::load which was called 12 times, avg 369µs/call: # once (809µs+0s) by File::Copy::BEGIN@1 at line 94 of Time/HiRes.pm # once (661µs+0s) by RBM::BEGIN@22 at line 24 of Digest/MD5.pm # once (619µs+0s) by RBM::BEGIN@21 at line 244 of Digest/SHA.pm # once (570µs+0s) by YAML::XS::BEGIN@20 at line 7 of YAML/XS/LibYAML.pm # once (450µs+0s) by Unicode::UTF8::BEGIN@6 at line 14 of Unicode/UTF8.pm # once (215µs+0s) by Encode::BEGIN@9 at line 12 of Encode.pm # once (214µs+0s) by IO::Handle::BEGIN@8 at line 11 of IO.pm # once (191µs+0s) by Storable::BEGIN@72 at line 11 of Fcntl.pm # once (183µs+0s) by RBM::BEGIN@53 at line 68 of File/Glob.pm # once (175µs+0s) by File::Spec::Unix::BEGIN@4 at line 80 of Cwd.pm # once (174µs+0s) by Encode::BEGIN@55 at line 98 of Storable.pm # once (172µs+0s) by YAML::XS::BEGIN@21 at line 23 of List/Util.pm
sub load {
19 package DynaLoader;
20
21 my ($caller, $modlibname) = caller();
22 my $module = $caller;
23
24 if (@_) {
25 $module = $_[0];
26 } else {
27 $_[0] = $module;
28 }
29
30 # work with static linking too
31 my $boots = "$module\::bootstrap";
32 goto &$boots if defined &$boots;
33
34 goto \&XSLoader::bootstrap_inherit unless $module and defined &dl_load_file;
35
36 my @modparts = split(/::/,$module);
37 my $modfname = $modparts[-1];
38 my $modfname_orig = $modfname; # For .bs file search
39
40 my $modpname = join('/',@modparts);
41 my $c = () = split(/::/,$caller,-1);
42 $modlibname =~ s,[\\/][^\\/]+$,, while $c--; # Q&D basename
43 # Does this look like a relative path?
44 if ($modlibname !~ m{^/}) {
45 # Someone may have a #line directive that changes the file name, or
46 # may be calling XSLoader::load from inside a string eval. We cer-
47 # tainly do not want to go loading some code that is not in @INC,
48 # as it could be untrusted.
49 #
50 # We could just fall back to DynaLoader here, but then the rest of
51 # this function would go untested in the perl core, since all @INC
52 # paths are relative during testing. That would be a time bomb
53 # waiting to happen, since bugs could be introduced into the code.
54 #
55 # So look through @INC to see if $modlibname is in it. A rela-
56 # tive $modlibname is not a common occurrence, so this block is
57 # not hot code.
58 FOUND: {
59 for (@INC) {
60 if ($_ eq $modlibname) {
61 last FOUND;
62 }
63 }
64 # Not found. Fall back to DynaLoader.
65 goto \&XSLoader::bootstrap_inherit;
66 }
67 }
68 my $file = "$modlibname/auto/$modpname/$modfname.so";
69
70# print STDERR "XSLoader::load for $module ($file)\n" if $dl_debug;
71
72 # N.B. The .bs file does not following the naming convention used
73 # by mod2fname, so use the unedited version of the name.
74
75 my $bs = "$modlibname/auto/$modpname/$modfname_orig.bs";
76
77 # This calls DynaLoader::bootstrap, which will load the .bs file if present
78 goto \&XSLoader::bootstrap_inherit if not -f $file or -s $bs;
79
80 my $bootname = "boot_$module";
81 $bootname =~ s/\W/_/g;
82 @DynaLoader::dl_require_symbols = ($bootname);
83
84 my $boot_symbol_ref;
85
86 # Many dynamic extension loading problems will appear to come from
87 # this section of code: XYZ failed at line 123 of DynaLoader.pm.
88 # Often these errors are actually occurring in the initialisation
89 # C code of the extension XS file. Perl reports the error as being
90 # in this perl code simply because this was the last perl code
91 # it executed.
92
93 my $libref = dl_load_file($file, 0) or do {
94 require Carp;
95 Carp::croak("Can't load '$file' for module $module: " . dl_error());
96 };
97 push(@DynaLoader::dl_librefs,$libref); # record loaded object
98
99 $boot_symbol_ref = dl_find_symbol($libref, $bootname) or do {
100 require Carp;
101 Carp::croak("Can't find '$bootname' symbol in $file\n");
102 };
103
104 push(@DynaLoader::dl_modules, $module); # record loaded module
105
106 boot:
107 my $xs = dl_install_xsub($boots, $boot_symbol_ref, $file);
108
109 # See comment block above
110 push(@DynaLoader::dl_shared_objects, $file); # record files loaded
111 return &$xs(@_);
112}
113
114sub bootstrap_inherit {
115 require DynaLoader;
116 goto \&DynaLoader::bootstrap_inherit;
117}
118
1191;
120
121__END__
122