← Index
NYTProf Performance Profile   « block view • line view • sub view »
For C:/lo/libo-master/solenv/bin/make_installer.pl
  Run on Mon Sep 24 00:52:54 2012
Reported on Mon Sep 24 07:34:35 2012

Filename/usr/lib/perl5/5.14/i686-cygwin-threads-64int/File/Spec/Unix.pm
StatementsExecuted 319745 statements in 862ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
1998311467ms568msFile::Spec::Unix::::canonpathFile::Spec::Unix::canonpath
999622112ms660msFile::Spec::Unix::::rel2absFile::Spec::Unix::rel2abs
11989861101ms101msFile::Spec::Unix::::CORE:substFile::Spec::Unix::CORE:subst (opcode)
99871189.3ms601msFile::Spec::Unix::::catdirFile::Spec::Unix::catdir
99821169.3ms69.3msFile::Spec::Unix::::catpathFile::Spec::Unix::catpath
111339µs351µsFile::Spec::Unix::::BEGIN@3File::Spec::Unix::BEGIN@3
511201µs205µsFile::Spec::Unix::::file_name_is_absoluteFile::Spec::Unix::file_name_is_absolute
51137µs87µsFile::Spec::Unix::::_cwdFile::Spec::Unix::_cwd
11115µs44µsFile::Spec::Unix::::BEGIN@149File::Spec::Unix::BEGIN@149
11114µs74µsFile::Spec::Unix::::BEGIN@4File::Spec::Unix::BEGIN@4
1116µs6µsFile::Spec::Unix::::curdirFile::Spec::Unix::curdir
5115µs5µsFile::Spec::Unix::::CORE:matchFile::Spec::Unix::CORE:match (opcode)
0000s0sFile::Spec::Unix::::_collapseFile::Spec::Unix::_collapse
0000s0sFile::Spec::Unix::::_sameFile::Spec::Unix::_same
0000s0sFile::Spec::Unix::::_tmpdirFile::Spec::Unix::_tmpdir
0000s0sFile::Spec::Unix::::abs2relFile::Spec::Unix::abs2rel
0000s0sFile::Spec::Unix::::case_tolerantFile::Spec::Unix::case_tolerant
0000s0sFile::Spec::Unix::::catfileFile::Spec::Unix::catfile
0000s0sFile::Spec::Unix::::devnullFile::Spec::Unix::devnull
0000s0sFile::Spec::Unix::::joinFile::Spec::Unix::join
0000s0sFile::Spec::Unix::::no_upwardsFile::Spec::Unix::no_upwards
0000s0sFile::Spec::Unix::::pathFile::Spec::Unix::path
0000s0sFile::Spec::Unix::::rootdirFile::Spec::Unix::rootdir
0000s0sFile::Spec::Unix::::splitdirFile::Spec::Unix::splitdir
0000s0sFile::Spec::Unix::::splitpathFile::Spec::Unix::splitpath
0000s0sFile::Spec::Unix::::tmpdirFile::Spec::Unix::tmpdir
0000s0sFile::Spec::Unix::::updirFile::Spec::Unix::updir
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package File::Spec::Unix;
2
3274µs2363µs
# spent 351µs (339+12) within File::Spec::Unix::BEGIN@3 which was called: # once (339µs+12µs) by File::Copy::BEGIN@13 at line 3
use strict;
# spent 351µs making 1 call to File::Spec::Unix::BEGIN@3 # spent 12µs making 1 call to strict::import
42873µs2134µs
# spent 74µs (14+60) within File::Spec::Unix::BEGIN@4 which was called: # once (14µs+60µs) by File::Copy::BEGIN@13 at line 4
use vars qw($VERSION);
# spent 74µs making 1 call to File::Spec::Unix::BEGIN@4 # spent 60µs making 1 call to vars::import
5
612µs$VERSION = '3.33';
7129µs$VERSION = eval $VERSION;
# spent 6µs executing statements in string eval
8
9=head1 NAME
10
11File::Spec::Unix - File::Spec for Unix, base for other File::Spec modules
12
13=head1 SYNOPSIS
14
15 require File::Spec::Unix; # Done automatically by File::Spec
16
17=head1 DESCRIPTION
18
19Methods for manipulating file specifications. Other File::Spec
20modules, such as File::Spec::Mac, inherit from File::Spec::Unix and
21override specific methods.
22
23=head1 METHODS
24
25=over 2
26
27=item canonpath()
28
29No physical check on the filesystem, but a logical cleanup of a
30path. On UNIX eliminates successive slashes and successive "/.".
31
32 $cpath = File::Spec->canonpath( $path ) ;
33
34Note that this does *not* collapse F<x/../y> sections into F<y>. This
35is by design. If F</foo> on your system is a symlink to F</bar/baz>,
36then F</foo/../quux> is actually F</bar/quux>, not F</quux> as a naive
37F<../>-removal would give you. If you want to do this kind of
38processing, you probably want C<Cwd>'s C<realpath()> function to
39actually traverse the filesystem cleaning up paths like this.
40
41=cut
42
43
# spent 568ms (467+101) within File::Spec::Unix::canonpath which was called 19983 times, avg 28µs/call: # 19983 times (467ms+101ms) by File::Spec::Cygwin::canonpath at line 52 of File/Spec/Cygwin.pm, avg 28µs/call
sub canonpath {
44239796593ms my ($self,$path) = @_;
45 return unless defined $path;
46
47 # Handle POSIX-style node names beginning with double slash (qnx, nto)
48 # (POSIX says: "a pathname that begins with two successive slashes
49 # may be interpreted in an implementation-defined manner, although
50 # more than two leading slashes shall be treated as a single slash.")
51 my $node = '';
52 my $double_slashes_special = $^O eq 'qnx' || $^O eq 'nto';
53
54
55 if ( $double_slashes_special
56 && ( $path =~ s{^(//[^/]+)/?\z}{}s || $path =~ s{^(//[^/]+)/}{/}s ) ) {
57 $node = $1;
58 }
59 # This used to be
60 # $path =~ s|/+|/|g unless ($^O eq 'cygwin');
61 # but that made tests 29, 30, 35, 46, and 213 (as of #13272) to fail
62 # (Mainly because trailing "" directories didn't get stripped).
63 # Why would cygwin avoid collapsing multiple slashes into one? --jhi
641998319.2ms $path =~ s|/{2,}|/|g; # xx////xx -> xx/xx
# spent 19.2ms making 19983 calls to File::Spec::Unix::CORE:subst, avg 962ns/call
651998314.9ms $path =~ s{(?:/\.)+(?:/|\z)}{/}g; # xx/././xx -> xx/xx
# spent 14.9ms making 19983 calls to File::Spec::Unix::CORE:subst, avg 747ns/call
661998310.7ms $path =~ s|^(?:\./)+||s unless $path eq "./"; # ./xx -> xx
# spent 10.7ms making 19983 calls to File::Spec::Unix::CORE:subst, avg 538ns/call
671998311.3ms $path =~ s|^/(?:\.\./)+|/|; # /../../xx -> xx
# spent 11.3ms making 19983 calls to File::Spec::Unix::CORE:subst, avg 566ns/call
681998310.3ms $path =~ s|^/\.\.$|/|; # /.. -> /
# spent 10.3ms making 19983 calls to File::Spec::Unix::CORE:subst, avg 514ns/call
691998334.3ms $path =~ s|/\z|| unless $path eq "/"; # xx/ -> xx
# spent 34.3ms making 19983 calls to File::Spec::Unix::CORE:subst, avg 2µs/call
70 return "$node$path";
71}
72
73=item catdir()
74
75Concatenate two or more directory names to form a complete path ending
76with a directory. But remove the trailing slash from the resulting
77string, because it doesn't look good, isn't necessary and confuses
78OS2. Of course, if this is the root directory, don't cut off the
79trailing slash :-)
80
81=cut
82
83
# spent 601ms (89.3+512) within File::Spec::Unix::catdir which was called 9987 times, avg 60µs/call: # 9987 times (89.3ms+512ms) by File::Spec::Cygwin::catdir at line 65 of File/Spec/Cygwin.pm, avg 60µs/call
sub catdir {
841997485.6ms my $self = shift;
85
869987512ms $self->canonpath(join('/', @_, '')); # '' because need a trailing '/'
# spent 512ms making 9987 calls to File::Spec::Cygwin::canonpath, avg 51µs/call
87}
88
89=item catfile
90
91Concatenate one or more directory names and a filename to form a
92complete path ending with a filename
93
94=cut
95
96sub catfile {
97 my $self = shift;
98 my $file = $self->canonpath(pop @_);
99 return $file unless @_;
100 my $dir = $self->catdir(@_);
101 $dir .= "/" unless substr($dir,-1) eq "/";
102 return $dir.$file;
103}
104
105=item curdir
106
107Returns a string representation of the current directory. "." on UNIX.
108
109=cut
110
111110µs
# spent 6µs within File::Spec::Unix::curdir which was called: # once (6µs+0s) by Archive::Zip::Archive::BEGIN@7 at line 1094 of File/Find.pm
sub curdir { '.' }
112
113=item devnull
114
115Returns a string representation of the null device. "/dev/null" on UNIX.
116
117=cut
118
119sub devnull { '/dev/null' }
120
121=item rootdir
122
123Returns a string representation of the root directory. "/" on UNIX.
124
125=cut
126
127sub rootdir { '/' }
128
129=item tmpdir
130
131Returns a string representation of the first writable directory from
132the following list or the current directory if none from the list are
133writable:
134
135 $ENV{TMPDIR}
136 /tmp
137
138Since perl 5.8.0, if running under taint mode, and if $ENV{TMPDIR}
139is tainted, it is not used.
140
141=cut
142
1431500nsmy $tmpdir;
144sub _tmpdir {
145 return $tmpdir if defined $tmpdir;
146 my $self = shift;
147 my @dirlist = @_;
148 {
14922.26ms273µs
# spent 44µs (15+29) within File::Spec::Unix::BEGIN@149 which was called: # once (15µs+29µs) by File::Copy::BEGIN@13 at line 149
no strict 'refs';
# spent 44µs making 1 call to File::Spec::Unix::BEGIN@149 # spent 29µs making 1 call to strict::unimport
150 if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
151 require Scalar::Util;
152 @dirlist = grep { ! Scalar::Util::tainted($_) } @dirlist;
153 }
154 }
155 foreach (@dirlist) {
156 next unless defined && -d && -w _;
157 $tmpdir = $_;
158 last;
159 }
160 $tmpdir = $self->curdir unless defined $tmpdir;
161 $tmpdir = defined $tmpdir && $self->canonpath($tmpdir);
162 return $tmpdir;
163}
164
165sub tmpdir {
166 return $tmpdir if defined $tmpdir;
167 $tmpdir = $_[0]->_tmpdir( $ENV{TMPDIR}, "/tmp" );
168}
169
170=item updir
171
172Returns a string representation of the parent directory. ".." on UNIX.
173
174=cut
175
176sub updir { '..' }
177
178=item no_upwards
179
180Given a list of file names, strip out those that refer to a parent
181directory. (Does not strip symlinks, only '.', '..', and equivalents.)
182
183=cut
184
185sub no_upwards {
186 my $self = shift;
187 return grep(!/^\.{1,2}\z/s, @_);
188}
189
190=item case_tolerant
191
192Returns a true or false value indicating, respectively, that alphabetic
193is not or is significant when comparing file specifications.
194
195=cut
196
197sub case_tolerant { 0 }
198
199=item file_name_is_absolute
200
201Takes as argument a path and returns true if it is an absolute path.
202
203This does not consult the local filesystem on Unix, Win32, OS/2 or Mac
204OS (Classic). It does consult the working environment for VMS (see
205L<File::Spec::VMS/file_name_is_absolute>).
206
207=cut
208
209
# spent 205µs (201+5) within File::Spec::Unix::file_name_is_absolute which was called 5 times, avg 41µs/call: # 5 times (201µs+5µs) by File::Spec::Cygwin::file_name_is_absolute at line 81 of File/Spec/Cygwin.pm, avg 41µs/call
sub file_name_is_absolute {
21010214µs my ($self,$file) = @_;
21155µs return scalar($file =~ m:^/:s);
# spent 5µs making 5 calls to File::Spec::Unix::CORE:match, avg 940ns/call
212}
213
214=item path
215
216Takes no argument, returns the environment variable PATH as an array.
217
218=cut
219
220sub path {
221 return () unless exists $ENV{PATH};
222 my @path = split(':', $ENV{PATH});
223 foreach (@path) { $_ = '.' if $_ eq '' }
224 return @path;
225}
226
227=item join
228
229join is the same as catfile.
230
231=cut
232
233sub join {
234 my $self = shift;
235 return $self->catfile(@_);
236}
237
238=item splitpath
239
240 ($volume,$directories,$file) = File::Spec->splitpath( $path );
241 ($volume,$directories,$file) = File::Spec->splitpath( $path, $no_file );
242
243Splits a path into volume, directory, and filename portions. On systems
244with no concept of volume, returns '' for volume.
245
246For systems with no syntax differentiating filenames from directories,
247assumes that the last file is a path unless $no_file is true or a
248trailing separator or /. or /.. is present. On Unix this means that $no_file
249true makes this return ( '', $path, '' ).
250
251The directory portion may or may not be returned with a trailing '/'.
252
253The results can be passed to L</catpath()> to get back a path equivalent to
254(usually identical to) the original path.
255
256=cut
257
258sub splitpath {
259 my ($self,$path, $nofile) = @_;
260
261 my ($volume,$directory,$file) = ('','','');
262
263 if ( $nofile ) {
264 $directory = $path;
265 }
266 else {
267 $path =~ m|^ ( (?: .* / (?: \.\.?\z )? )? ) ([^/]*) |xs;
268 $directory = $1;
269 $file = $2;
270 }
271
272 return ($volume,$directory,$file);
273}
274
275
276=item splitdir
277
278The opposite of L</catdir()>.
279
280 @dirs = File::Spec->splitdir( $directories );
281
282$directories must be only the directory portion of the path on systems
283that have the concept of a volume or that have path syntax that differentiates
284files from directories.
285
286Unlike just splitting the directories on the separator, empty
287directory names (C<''>) can be returned, because these are significant
288on some OSs.
289
290On Unix,
291
292 File::Spec->splitdir( "/a/b//c/" );
293
294Yields:
295
296 ( '', 'a', 'b', '', 'c', '' )
297
298=cut
299
300sub splitdir {
301 return split m|/|, $_[1], -1; # Preserve trailing fields
302}
303
304
305=item catpath()
306
307Takes volume, directory and file portions and returns an entire path. Under
308Unix, $volume is ignored, and directory and file are concatenated. A '/' is
309inserted if needed (though if the directory portion doesn't start with
310'/' it is not added). On other OSs, $volume is significant.
311
312=cut
313
314
# spent 69.3ms within File::Spec::Unix::catpath which was called 9982 times, avg 7µs/call: # 9982 times (69.3ms+0s) by Archive::Zip::_asLocalName at line 550 of Archive/Zip.pm, avg 7µs/call
sub catpath {
3152994683.8ms my ($self,$volume,$directory,$file) = @_;
316
317 if ( $directory ne '' &&
318 $file ne '' &&
319 substr( $directory, -1 ) ne '/' &&
320 substr( $file, 0, 1 ) ne '/'
321 ) {
322 $directory .= "/$file" ;
323 }
324 else {
325 $directory .= $file ;
326 }
327
328 return $directory ;
329}
330
331=item abs2rel
332
333Takes a destination path and an optional base path returns a relative path
334from the base path to the destination path:
335
336 $rel_path = File::Spec->abs2rel( $path ) ;
337 $rel_path = File::Spec->abs2rel( $path, $base ) ;
338
339If $base is not present or '', then L<cwd()|Cwd> is used. If $base is
340relative, then it is converted to absolute form using
341L</rel2abs()>. This means that it is taken to be relative to
342L<cwd()|Cwd>.
343
344On systems that have a grammar that indicates filenames, this ignores the
345$base filename. Otherwise all path components are assumed to be
346directories.
347
348If $path is relative, it is converted to absolute form using L</rel2abs()>.
349This means that it is taken to be relative to L<cwd()|Cwd>.
350
351No checks against the filesystem are made. On VMS, there is
352interaction with the working environment, as logicals and
353macros are expanded.
354
355Based on code written by Shigio Yamaguchi.
356
357=cut
358
359sub abs2rel {
360 my($self,$path,$base) = @_;
361 $base = $self->_cwd() unless defined $base and length $base;
362
363 ($path, $base) = map $self->canonpath($_), $path, $base;
364
365 if (grep $self->file_name_is_absolute($_), $path, $base) {
366 ($path, $base) = map $self->rel2abs($_), $path, $base;
367 }
368 else {
369 # save a couple of cwd()s if both paths are relative
370 ($path, $base) = map $self->catdir('/', $_), $path, $base;
371 }
372
373 my ($path_volume) = $self->splitpath($path, 1);
374 my ($base_volume) = $self->splitpath($base, 1);
375
376 # Can't relativize across volumes
377 return $path unless $path_volume eq $base_volume;
378
379 my $path_directories = ($self->splitpath($path, 1))[1];
380 my $base_directories = ($self->splitpath($base, 1))[1];
381
382 # For UNC paths, the user might give a volume like //foo/bar that
383 # strictly speaking has no directory portion. Treat it as if it
384 # had the root directory for that volume.
385 if (!length($base_directories) and $self->file_name_is_absolute($base)) {
386 $base_directories = $self->rootdir;
387 }
388
389 # Now, remove all leading components that are the same
390 my @pathchunks = $self->splitdir( $path_directories );
391 my @basechunks = $self->splitdir( $base_directories );
392
393 if ($base_directories eq $self->rootdir) {
394 shift @pathchunks;
395 return $self->canonpath( $self->catpath('', $self->catdir( @pathchunks ), '') );
396 }
397
398 while (@pathchunks && @basechunks && $self->_same($pathchunks[0], $basechunks[0])) {
399 shift @pathchunks ;
400 shift @basechunks ;
401 }
402 return $self->curdir unless @pathchunks || @basechunks;
403
404 # $base now contains the directories the resulting relative path
405 # must ascend out of before it can descend to $path_directory.
406 my $result_dirs = $self->catdir( ($self->updir) x @basechunks, @pathchunks );
407 return $self->canonpath( $self->catpath('', $result_dirs, '') );
408}
409
410sub _same {
411 $_[1] eq $_[2];
412}
413
414=item rel2abs()
415
416Converts a relative path to an absolute path.
417
418 $abs_path = File::Spec->rel2abs( $path ) ;
419 $abs_path = File::Spec->rel2abs( $path, $base ) ;
420
421If $base is not present or '', then L<cwd()|Cwd> is used. If $base is
422relative, then it is converted to absolute form using
423L</rel2abs()>. This means that it is taken to be relative to
424L<cwd()|Cwd>.
425
426On systems that have a grammar that indicates filenames, this ignores
427the $base filename. Otherwise all path components are assumed to be
428directories.
429
430If $path is absolute, it is cleaned up and returned using L</canonpath()>.
431
432No checks against the filesystem are made. On VMS, there is
433interaction with the working environment, as logicals and
434macros are expanded.
435
436Based on code written by Shigio Yamaguchi.
437
438=cut
439
440
# spent 660ms (112+548) within File::Spec::Unix::rel2abs which was called 9996 times, avg 66µs/call: # 9982 times (112ms+546ms) by Archive::Zip::_asLocalName at line 551 of Archive/Zip.pm, avg 66µs/call # 14 times (232µs+1.53ms) by File::Spec::Functions::__ANON__[/usr/lib/perl5/5.14/i686-cygwin-threads-64int/File/Spec/Functions.pm:43] at line 43 of File/Spec/Functions.pm, avg 126µs/call
sub rel2abs {
4412998896.3ms my ($self,$path,$base ) = @_;
442
443 # Clean up $path
4441047µs999697.4ms if ( ! $self->file_name_is_absolute( $path ) ) {
# spent 97.4ms making 9996 calls to File::Spec::Cygwin::file_name_is_absolute, avg 10µs/call
445 # Figure out the effective $base and clean it up.
446587µs if ( !defined( $base ) || $base eq '' ) {
# spent 87µs making 5 calls to File::Spec::Unix::_cwd, avg 17µs/call
447 $base = $self->_cwd();
448 }
449 elsif ( ! $self->file_name_is_absolute( $base ) ) {
450 $base = $self->rel2abs( $base ) ;
451 }
452 else {
453 $base = $self->canonpath( $base ) ;
454 }
455
456 # Glom them together
4575404µs $path = $self->catdir( $base, $path ) ;
# spent 404µs making 5 calls to File::Spec::Cygwin::catdir, avg 81µs/call
458 }
459
4609996450ms return $self->canonpath( $path ) ;
# spent 450ms making 9996 calls to File::Spec::Cygwin::canonpath, avg 45µs/call
461}
462
463=back
464
465=head1 COPYRIGHT
466
467Copyright (c) 2004 by the Perl 5 Porters. All rights reserved.
468
469This program is free software; you can redistribute it and/or modify
470it under the same terms as Perl itself.
471
472=head1 SEE ALSO
473
474L<File::Spec>
475
476=cut
477
478# Internal routine to File::Spec, no point in making this public since
479# it is the standard Cwd interface. Most of the platform-specific
480# File::Spec subclasses use this.
481
# spent 87µs (37+50) within File::Spec::Unix::_cwd which was called 5 times, avg 17µs/call: # 5 times (37µs+50µs) by File::Spec::Unix::rel2abs at line 446, avg 17µs/call
sub _cwd {
4821036µs require Cwd;
483550µs Cwd::getcwd();
# spent 50µs making 5 calls to Cwd::__ANON__[Cwd.pm:406], avg 10µs/call
484}
485
486
487# Internal method to reduce xx\..\yy -> yy
488sub _collapse {
489 my($fs, $path) = @_;
490
491 my $updir = $fs->updir;
492 my $curdir = $fs->curdir;
493
494 my($vol, $dirs, $file) = $fs->splitpath($path);
495 my @dirs = $fs->splitdir($dirs);
496 pop @dirs if @dirs && $dirs[-1] eq '';
497
498 my @collapsed;
499 foreach my $dir (@dirs) {
500 if( $dir eq $updir and # if we have an updir
501 @collapsed and # and something to collapse
502 length $collapsed[-1] and # and its not the rootdir
503 $collapsed[-1] ne $updir and # nor another updir
504 $collapsed[-1] ne $curdir # nor the curdir
505 )
506 { # then
507 pop @collapsed; # collapse
508 }
509 else { # else
510 push @collapsed, $dir; # just hang onto it
511 }
512 }
513
514 return $fs->catpath($vol,
515 $fs->catdir(@collapsed),
516 $file
517 );
518}
519
520
521112µs1;
 
# spent 5µs within File::Spec::Unix::CORE:match which was called 5 times, avg 940ns/call: # 5 times (5µs+0s) by File::Spec::Unix::file_name_is_absolute at line 211, avg 940ns/call
sub File::Spec::Unix::CORE:match; # opcode
# spent 101ms within File::Spec::Unix::CORE:subst which was called 119898 times, avg 841ns/call: # 19983 times (34.3ms+0s) by File::Spec::Unix::canonpath at line 69, avg 2µs/call # 19983 times (19.2ms+0s) by File::Spec::Unix::canonpath at line 64, avg 962ns/call # 19983 times (14.9ms+0s) by File::Spec::Unix::canonpath at line 65, avg 747ns/call # 19983 times (11.3ms+0s) by File::Spec::Unix::canonpath at line 67, avg 566ns/call # 19983 times (10.7ms+0s) by File::Spec::Unix::canonpath at line 66, avg 538ns/call # 19983 times (10.3ms+0s) by File::Spec::Unix::canonpath at line 68, avg 514ns/call
sub File::Spec::Unix::CORE:subst; # opcode
Report produced by the NYTProf 4.09 Perl profiler, developed by Tim Bunce and Adam Kaplan.