← Index
NYTProf Performance Profile   « line view »
For /usr/local/libexec/sympa/task_manager-debug.pl
  Run on Tue Jun 1 22:32:51 2021
Reported on Tue Jun 1 22:35:10 2021

Filename/usr/local/lib/perl5/5.32/mach/File/Glob.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sFile::Glob::::BEGIN@3File::Glob::BEGIN@3
0000s0sFile::Glob::::BEGIN@52File::Glob::BEGIN@52
0000s0sFile::Glob::::BEGIN@56File::Glob::BEGIN@56
0000s0sFile::Glob::::CORE:matchFile::Glob::CORE:match (opcode)
0000s0sFile::Glob::::GLOB_CSHFile::Glob::GLOB_CSH (xsub)
0000s0sFile::Glob::::importFile::Glob::import
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
3use strict;
4our($VERSION, @ISA, @EXPORT_OK, @EXPORT_FAIL, %EXPORT_TAGS, $DEFAULT_FLAGS);
5
6require XSLoader;
7
8@ISA = qw(Exporter);
9
10# NOTE: The glob() export is only here for compatibility with 5.6.0.
11# csh_glob() should not be used directly, unless you know what you're doing.
12
13%EXPORT_TAGS = (
14 'glob' => [ qw(
15 GLOB_ABEND
16 GLOB_ALPHASORT
17 GLOB_ALTDIRFUNC
18 GLOB_BRACE
19 GLOB_CSH
20 GLOB_ERR
21 GLOB_ERROR
22 GLOB_LIMIT
23 GLOB_MARK
24 GLOB_NOCASE
25 GLOB_NOCHECK
26 GLOB_NOMAGIC
27 GLOB_NOSORT
28 GLOB_NOSPACE
29 GLOB_QUOTE
30 GLOB_TILDE
31 bsd_glob
32 ) ],
33);
34$EXPORT_TAGS{bsd_glob} = [@{$EXPORT_TAGS{glob}}];
35
36@EXPORT_OK = (@{$EXPORT_TAGS{'glob'}}, 'csh_glob');
37
38$VERSION = '1.33';
39
40sub import {
41 require Exporter;
42 local $Exporter::ExportLevel = $Exporter::ExportLevel + 1;
43 Exporter::import(grep {
44 my $passthrough;
45 if ($_ eq ':case') {
46 $DEFAULT_FLAGS &= ~GLOB_NOCASE()
47 }
48 elsif ($_ eq ':nocase') {
49 $DEFAULT_FLAGS |= GLOB_NOCASE();
50 }
51 elsif ($_ eq ':globally') {
52 no warnings 'redefine';
53 *CORE::GLOBAL::glob = \&File::Glob::csh_glob;
54 }
55 elsif ($_ eq ':bsd_glob') {
56 no strict; *{caller."::glob"} = \&bsd_glob_override;
57 $passthrough = 1;
58 }
59 else {
60 $passthrough = 1;
61 }
62 $passthrough;
63 } @_);
64}
65
66XSLoader::load();
67
68$DEFAULT_FLAGS = GLOB_CSH();
69if ($^O =~ /^(?:MSWin32|VMS|os2|dos|riscos)$/) {
70 $DEFAULT_FLAGS |= GLOB_NOCASE();
71}
72
731;
74__END__