← Index
NYTProf Performance Profile   « line view »
For webmerge/scripts/webmerge.pl
  Run on Mon Oct 7 02:42:42 2013
Reported on Mon Oct 7 03:03:21 2013

Filename/usr/lib64/perl5/5.16.0/x86_64-linux/File/Glob.pm
StatementsExecuted 113 statements in 86.4ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1114.69ms4.91msFile::Glob::::BEGIN@7File::Glob::BEGIN@7
333457µs1.30msFile::Glob::::importFile::Glob::import
211128µs128µsFile::Glob::::bsd_globFile::Glob::bsd_glob (xsub)
11184µs188µsFile::Glob::::BEGIN@3File::Glob::BEGIN@3
11166µs128µsFile::Glob::::BEGIN@52File::Glob::BEGIN@52
11150µs136µsFile::Glob::::BEGIN@56File::Glob::BEGIN@56
31120µs20µsFile::Glob::::GLOB_NOCASEFile::Glob::GLOB_NOCASE (xsub)
11118µs18µsFile::Glob::::CORE:matchFile::Glob::CORE:match (opcode)
1118µs8µsFile::Glob::::GLOB_CSHFile::Glob::GLOB_CSH (xsub)
0000s0sFile::Glob::::globFile::Glob::glob
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package File::Glob;
2
32357µs2292µs
# spent 188µs (84+104) within File::Glob::BEGIN@3 which was called: # once (84µs+104µs) by RTP::Webmerge::BEGIN@18 at line 3
use strict;
# spent 188µs making 1 call to File::Glob::BEGIN@3 # spent 104µs making 1 call to strict::import
414µsour($VERSION, @ISA, @EXPORT_OK, @EXPORT_FAIL, %EXPORT_TAGS, $DEFAULT_FLAGS);
5
613µsrequire XSLoader;
725.62ms25.14ms
# spent 4.91ms (4.69+225µs) within File::Glob::BEGIN@7 which was called: # once (4.69ms+225µs) by RTP::Webmerge::BEGIN@18 at line 7
use feature 'switch';
# spent 4.91ms making 1 call to File::Glob::BEGIN@7 # spent 225µs making 1 call to feature::import
8
9144µs@ISA = qw(Exporter);
10
11# NOTE: The glob() export is only here for compatibility with 5.6.0.
12# csh_glob() should not be used directly, unless you know what you're doing.
13
14127µs%EXPORT_TAGS = (
15 'glob' => [ qw(
16 GLOB_ABEND
17 GLOB_ALPHASORT
18 GLOB_ALTDIRFUNC
19 GLOB_BRACE
20 GLOB_CSH
21 GLOB_ERR
22 GLOB_ERROR
23 GLOB_LIMIT
24 GLOB_MARK
25 GLOB_NOCASE
26 GLOB_NOCHECK
27 GLOB_NOMAGIC
28 GLOB_NOSORT
29 GLOB_NOSPACE
30 GLOB_QUOTE
31 GLOB_TILDE
32 bsd_glob
33 glob
34 ) ],
35);
36121µs$EXPORT_TAGS{bsd_glob} = [@{$EXPORT_TAGS{glob}}];
3714µspop @{$EXPORT_TAGS{bsd_glob}}; # no "glob"
38
39118µs@EXPORT_OK = (@{$EXPORT_TAGS{'glob'}}, 'csh_glob');
40
4112µs$VERSION = '1.17';
42
43
# spent 1.30ms (457µs+839µs) within File::Glob::import which was called 3 times, avg 432µs/call: # once (164µs+509µs) by RTP::Webmerge::BEGIN@18 at line 18 of webmerge/scripts/modules/RTP/Webmerge.pm # once (167µs+165µs) by RTP::Webmerge::IO::BEGIN@35 at line 35 of webmerge/scripts/modules/RTP/Webmerge/IO.pm # once (126µs+166µs) by RTP::Webmerge::Merge::BEGIN@50 at line 50 of webmerge/scripts/modules/RTP/Webmerge/Merge.pm
sub import {
4438µs require Exporter;
45316µs local $Exporter::ExportLevel = $Exporter::ExportLevel + 1;
46127µs Exporter::import(grep {
473134µs3820µs my $passthrough;
# spent 820µs making 3 calls to Exporter::import, avg 273µs/call
481235µs given ($_) {
491249µs $DEFAULT_FLAGS &= ~GLOB_NOCASE() when ':case';
5012154µs320µs $DEFAULT_FLAGS |= GLOB_NOCASE() when ':nocase';
# spent 20µs making 3 calls to File::Glob::GLOB_NOCASE, avg 6µs/call
51925µs when (':globally') {
522287µs2189µs
# spent 128µs (66+62) within File::Glob::BEGIN@52 which was called: # once (66µs+62µs) by RTP::Webmerge::BEGIN@18 at line 52
no warnings 'redefine';
# spent 128µs making 1 call to File::Glob::BEGIN@52 # spent 62µs making 1 call to warnings::unimport
53323µs *CORE::GLOBAL::glob = \&File::Glob::csh_glob;
54 }
5566µs if ($_ eq ':bsd_glob') {
562961µs2223µs
# spent 136µs (50+87) within File::Glob::BEGIN@56 which was called: # once (50µs+87µs) by RTP::Webmerge::BEGIN@18 at line 56
no strict; *{caller."::glob"} = \&bsd_glob_override;
# spent 136µs making 1 call to File::Glob::BEGIN@56 # spent 87µs making 1 call to strict::unimport
57 }
58612µs $passthrough = 1;
59 }
601217µs $passthrough;
61 } @_);
62}
63
64178.4ms178.3msXSLoader::load();
# spent 78.3ms making 1 call to XSLoader::load
65
66142µs18µs$DEFAULT_FLAGS = GLOB_CSH();
# spent 8µs making 1 call to File::Glob::GLOB_CSH
67147µs118µsif ($^O =~ /^(?:MSWin32|VMS|os2|dos|riscos)$/) {
# spent 18µs making 1 call to File::Glob::CORE:match
68 $DEFAULT_FLAGS |= GLOB_NOCASE();
69}
70
71# File::Glob::glob() is deprecated because its prototype is different from
72# CORE::glob() (use bsd_glob() instead)
73sub glob {
74 splice @_, 1; # don't pass PL_glob_index as flags!
75 goto &bsd_glob;
76}
77
78189µs1;
79__END__
 
# spent 18µs within File::Glob::CORE:match which was called: # once (18µs+0s) by RTP::Webmerge::BEGIN@18 at line 67
sub File::Glob::CORE:match; # opcode
# spent 8µs within File::Glob::GLOB_CSH which was called: # once (8µs+0s) by RTP::Webmerge::BEGIN@18 at line 66
sub File::Glob::GLOB_CSH; # xsub
# spent 20µs within File::Glob::GLOB_NOCASE which was called 3 times, avg 6µs/call: # 3 times (20µs+0s) by File::Glob::import at line 50, avg 6µs/call
sub File::Glob::GLOB_NOCASE; # xsub
# spent 128µs within File::Glob::bsd_glob which was called 2 times, avg 64µs/call: # 2 times (128µs+0s) by RTP::Webmerge::Merge::collect at line 229 of webmerge/scripts/modules/RTP/Webmerge/Merge.pm, avg 64µs/call
sub File::Glob::bsd_glob; # xsub