← Index
NYTProf Performance Profile   « line view »
For rbm/rbm
  Run on Wed Feb 12 20:36:06 2020
Reported on Wed Feb 12 21:42:25 2020

Filename/usr/share/perl/5.28/File/Basename.pm
StatementsExecuted 103693 statements in 377ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
414521141ms160msFile::Basename::::fileparseFile::Basename::fileparse
412731118ms383msFile::Basename::::basenameFile::Basename::basename
41452161.0ms106msFile::Basename::::_strip_trailing_sepFile::Basename::_strip_trailing_sep
41451145.4ms45.4msFile::Basename::::CORE:substFile::Basename::CORE:subst (opcode)
41552118.8ms18.8msFile::Basename::::CORE:matchFile::Basename::CORE:match (opcode)
1112.64ms2.66msFile::Basename::::BEGIN@14File::Basename::BEGIN@14
1863550µs2.00msFile::Basename::::dirnameFile::Basename::dirname
11132µs61µsFile::Basename::::fileparse_set_fstypeFile::Basename::fileparse_set_fstype
101126µs26µsFile::Basename::::CORE:regcompFile::Basename::CORE:regcomp (opcode)
11116µs16µsFile::Basename::::BEGIN@13File::Basename::BEGIN@13
1116µs6µsFile::Basename::::BEGIN@184File::Basename::BEGIN@184
1116µs6µsFile::Basename::::BEGIN@5File::Basename::BEGIN@5
1115µs7µsFile::Basename::::BEGIN@12File::Basename::BEGIN@12
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package File::Basename;
2
3# File::Basename is used during the Perl build, when the re extension may
4# not be available, but we only actually need it if running under tainting.
5
# spent 6µs within File::Basename::BEGIN@5 which was called: # once (6µs+0s) by main::BEGIN@4 at line 10
BEGIN {
614µs if (${^TAINT}) {
7 require re;
8 re->import('taint');
9 }
10121µs16µs}
# spent 6µs making 1 call to File::Basename::BEGIN@5
11
12219µs28µs
# spent 7µs (5+2) within File::Basename::BEGIN@12 which was called: # once (5µs+2µs) by main::BEGIN@4 at line 12
use strict;
# spent 7µs making 1 call to File::Basename::BEGIN@12 # spent 2µs making 1 call to strict::import
13242µs116µs
# spent 16µs within File::Basename::BEGIN@13 which was called: # once (16µs+0s) by main::BEGIN@4 at line 13
use 5.006;
# spent 16µs making 1 call to File::Basename::BEGIN@13
1423.61ms22.68ms
# spent 2.66ms (2.64+21µs) within File::Basename::BEGIN@14 which was called: # once (2.64ms+21µs) by main::BEGIN@4 at line 14
use warnings;
# spent 2.66ms making 1 call to File::Basename::BEGIN@14 # spent 17µs making 1 call to warnings::import
15our(@ISA, @EXPORT, $VERSION, $Fileparse_fstype, $Fileparse_igncase);
161625µsrequire Exporter;
1716µs@ISA = qw(Exporter);
181700ns@EXPORT = qw(fileparse fileparse_set_fstype basename dirname);
191200ns$VERSION = "2.85";
20
2111µs161µsfileparse_set_fstype($^O);
# spent 61µs making 1 call to File::Basename::fileparse_set_fstype
22
23
# spent 160ms (141+18.8) within File::Basename::fileparse which was called 4145 times, avg 39µs/call: # 4127 times (140ms+18.5ms) by File::Basename::basename at line 106, avg 39µs/call # 18 times (827µs+242µs) by File::Basename::dirname at line 134, avg 59µs/call
sub fileparse {
2441454.52ms my($fullname,@suffices) = @_;
25
2641453.03ms unless (defined $fullname) {
27 require Carp;
28 Carp::croak("fileparse(): need a valid pathname");
29 }
30
3141455.54ms my $orig_type = '';
3241453.87ms my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
33
3441459.16ms my($taint) = substr($fullname,0,0); # Is $fullname tainted?
35
3641453.84ms if ($type eq "VMS" and $fullname =~ m{/} ) {
37 # We're doing Unix emulation
38 $orig_type = $type;
39 $type = 'Unix';
40 }
41
4241451.95ms my($dirpath, $basename);
43
44414521.1ms if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
45 ($dirpath,$basename) = ($fullname =~ /^((?:.*[:\\\/])?)(.*)/s);
46 $dirpath .= '.\\' unless $dirpath =~ /[\\\/]\z/;
47 }
48 elsif ($type eq "OS2") {
49 ($dirpath,$basename) = ($fullname =~ m#^((?:.*[:\\/])?)(.*)#s);
50 $dirpath = './' unless $dirpath; # Can't be 0
51 $dirpath .= '/' unless $dirpath =~ m#[\\/]\z#;
52 }
53 elsif ($type eq "MacOS") {
54 ($dirpath,$basename) = ($fullname =~ /^(.*:)?(.*)/s);
55 $dirpath = ':' unless $dirpath;
56 }
57 elsif ($type eq "AmigaOS") {
58 ($dirpath,$basename) = ($fullname =~ /(.*[:\/])?(.*)/s);
59 $dirpath = './' unless $dirpath;
60 }
61 elsif ($type eq 'VMS' ) {
62 ($dirpath,$basename) = ($fullname =~ /^(.*[:>\]])?(.*)/s);
63 $dirpath ||= ''; # should always be defined
64 }
65 else { # Default to Unix semantics.
66414562.1ms414518.8ms ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
# spent 18.8ms making 4145 calls to File::Basename::CORE:match, avg 5µs/call
6741452.31ms if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
68 # dev:[000000] is top of VMS tree, similar to Unix '/'
69 # so strip it off and treat the rest as "normal"
70 my $devspec = $1;
71 my $remainder = $3;
72 ($dirpath,$basename) = ($remainder =~ m{^(.*/)?(.*)}s);
73 $dirpath ||= ''; # should always be defined
74 $dirpath = $devspec.$dirpath;
75 }
7641451.91ms $dirpath = './' unless $dirpath;
77 }
78
79
8041454.26ms my $tail = '';
8141454.43ms my $suffix = '';
8241451.93ms if (@suffices) {
83 foreach $suffix (@suffices) {
84 my $pat = ($igncase ? '(?i)' : '') . "($suffix)\$";
85 if ($basename =~ s/$pat//s) {
86 $taint .= substr($suffix,0,0);
87 $tail = $1 . $tail;
88 }
89 }
90 }
91
92 # Ensure taint is propagated from the path to its pieces.
9341453.80ms $tail .= $taint;
94414542.4ms wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
95 : ($basename .= $taint);
96}
97
98
# spent 383ms (118+265) within File::Basename::basename which was called 4127 times, avg 93µs/call: # 1992 times (69.2ms+135ms) by RBM::input_files at line 872 of /root/tor-browser-build/rbm/lib/RBM.pm, avg 103µs/call # 1992 times (47.9ms+127ms) by RBM::__ANON__[rbm/lib/RBM.pm:858] at line 853 of /root/tor-browser-build/rbm/lib/RBM.pm, avg 88µs/call # 143 times (676µs+2.64ms) by RBM::load_config at line 55 of /root/tor-browser-build/rbm/lib/RBM.pm, avg 23µs/call
sub basename {
9941276.06ms my($path) = shift;
100
101 # From BSD basename(1)
102 # The basename utility deletes any prefix ending with the last slash '/'
103 # character present in string (after first stripping trailing slashes)
104412723.6ms4127106ms _strip_trailing_sep($path);
# spent 106ms making 4127 calls to File::Basename::_strip_trailing_sep, avg 26µs/call
105
106412723.5ms4127159ms my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
# spent 159ms making 4127 calls to File::Basename::fileparse, avg 39µs/call
107
108 # From BSD basename(1)
109 # The suffix is not stripped if it is identical to the remaining
110 # characters in string.
11141272.94ms if( length $suffix and !length $basename ) {
112 $basename = $suffix;
113 }
114
115 # Ensure that basename '/' == '/'
11641272.62ms if( !length $basename ) {
117 $basename = $dirname;
118 }
119
120412720.0ms return $basename;
121}
122
123
# spent 2.00ms (550µs+1.45) within File::Basename::dirname which was called 18 times, avg 111µs/call: # 8 times (298µs+769µs) by RBM::build_run at line 1088 of /root/tor-browser-build/rbm/lib/RBM.pm, avg 133µs/call # 6 times (174µs+404µs) by RBM::input_files at line 973 of /root/tor-browser-build/rbm/lib/RBM.pm, avg 96µs/call # once (16µs+137µs) by RBM::load_config at line 49 of /root/tor-browser-build/rbm/lib/RBM.pm # once (31µs+66µs) by RBM::build_run at line 1079 of /root/tor-browser-build/rbm/lib/RBM.pm # once (20µs+44µs) by File::Path::_mkpath at line 191 of File/Path.pm # once (10µs+24µs) by main::BEGIN@5 at line 5 of /root/tor-browser-build/rbm/rbm
sub dirname {
1241854µs my $path = shift;
125
1261838µs my($type) = $Fileparse_fstype;
127
1281817µs if( $type eq 'VMS' and $path =~ m{/} ) {
129 # Parse as Unix
130 local($File::Basename::Fileparse_fstype) = '';
131 return dirname($path);
132 }
133
13418165µs181.07ms my($basename, $dirname) = fileparse($path);
# spent 1.07ms making 18 calls to File::Basename::fileparse, avg 59µs/call
135
1361897µs if ($type eq 'VMS') {
137 $dirname ||= $ENV{DEFAULT};
138 }
139 elsif ($type eq 'MacOS') {
140 if( !length($basename) && $dirname !~ /^[^:]+:\z/) {
141 _strip_trailing_sep($dirname);
142 ($basename,$dirname) = fileparse $dirname;
143 }
144 $dirname .= ":" unless $dirname =~ /:\z/;
145 }
146 elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) {
147 _strip_trailing_sep($dirname);
148 unless( length($basename) ) {
149 ($basename,$dirname) = fileparse $dirname;
150 _strip_trailing_sep($dirname);
151 }
152 }
153 elsif ($type eq 'AmigaOS') {
154 if ( $dirname =~ /:\z/) { return $dirname }
155 chop $dirname;
156 $dirname =~ s{[^:/]+\z}{} unless length($basename);
157 }
158 else {
1591888µs18376µs _strip_trailing_sep($dirname);
# spent 376µs making 18 calls to File::Basename::_strip_trailing_sep, avg 21µs/call
1601814µs unless( length($basename) ) {
161 ($basename,$dirname) = fileparse $dirname;
162 _strip_trailing_sep($dirname);
163 }
164 }
165
1661881µs $dirname;
167}
168
169# Strip the trailing path separator.
170
# spent 106ms (61.0+45.4) within File::Basename::_strip_trailing_sep which was called 4145 times, avg 26µs/call: # 4127 times (60.8ms+45.3ms) by File::Basename::basename at line 104, avg 26µs/call # 18 times (206µs+171µs) by File::Basename::dirname at line 159, avg 21µs/call
sub _strip_trailing_sep {
17141458.08ms my $type = $Fileparse_fstype;
172
173414544.1ms if ($type eq 'MacOS') {
174 $_[0] =~ s/([^:]):\z/$1/s;
175 }
176 elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) {
177 $_[0] =~ s/([^:])[\\\/]*\z/$1/;
178 }
179 else {
180414564.5ms414545.4ms $_[0] =~ s{(.)/*\z}{$1}s;
# spent 45.4ms making 4145 calls to File::Basename::CORE:subst, avg 11µs/call
181 }
182}
183
184
# spent 6µs within File::Basename::BEGIN@184 which was called: # once (6µs+0s) by main::BEGIN@4 at line 207
BEGIN {
185
18612µsmy @Ignore_Case = qw(MacOS VMS AmigaOS OS2 RISCOS MSWin32 MSDOS DOS Epoc);
18716µsmy @Types = (@Ignore_Case, qw(Unix));
188
189
# spent 61µs (32+29) within File::Basename::fileparse_set_fstype which was called: # once (32µs+29µs) by main::BEGIN@4 at line 21
sub fileparse_set_fstype {
1901200ns my $old = $Fileparse_fstype;
191
1921300ns if (@_) {
19311µs my $new_type = shift;
194
1951200ns $Fileparse_fstype = 'Unix'; # default
1961400ns foreach my $type (@Types) {
1971056µs2029µs $Fileparse_fstype = $type if $new_type =~ /^$type/i;
# spent 26µs making 10 calls to File::Basename::CORE:regcomp, avg 3µs/call # spent 3µs making 10 calls to File::Basename::CORE:match, avg 320ns/call
198 }
199
200 $Fileparse_igncase =
20112µs (grep $Fileparse_fstype eq $_, @Ignore_Case) ? 1 : 0;
202 }
203
20412µs return $old;
205}
206
207129µs16µs}
# spent 6µs making 1 call to File::Basename::BEGIN@184
208
20916µs1;
210
 
# spent 18.8ms within File::Basename::CORE:match which was called 4155 times, avg 5µs/call: # 4145 times (18.8ms+0s) by File::Basename::fileparse at line 66, avg 5µs/call # 10 times (3µs+0s) by File::Basename::fileparse_set_fstype at line 197, avg 320ns/call
sub File::Basename::CORE:match; # opcode
# spent 26µs within File::Basename::CORE:regcomp which was called 10 times, avg 3µs/call: # 10 times (26µs+0s) by File::Basename::fileparse_set_fstype at line 197, avg 3µs/call
sub File::Basename::CORE:regcomp; # opcode
# spent 45.4ms within File::Basename::CORE:subst which was called 4145 times, avg 11µs/call: # 4145 times (45.4ms+0s) by File::Basename::_strip_trailing_sep at line 180, avg 11µs/call
sub File::Basename::CORE:subst; # opcode
Report produced by the NYTProf 6.06 Perl profiler, developed by Tim Bunce based on work by Adam Kaplan and Salvador Fandiño García.