Filename | /var/www/foswiki11/bin/setlib.cfg |
Statements | Executed 20 statements in 1.10ms |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 5.68ms | 6.14ms | BEGIN@28 | Foswiki::
1 | 1 | 1 | 38µs | 84µs | BEGIN@18 | Foswiki::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | # See bottom of file for license and copyright information | ||||
2 | # | ||||
3 | # setlib.cfg: determines the defaults for Foswiki and Perl library paths | ||||
4 | |||||
5 | ########################################################################### | ||||
6 | # DO NOT CHANGE THIS FILE - instead, create a file called LocalLib.cfg # | ||||
7 | # using the LocalLib.cfg.txt template file and customise your settings in # | ||||
8 | # there. They will override any settings in this file. # | ||||
9 | ########################################################################### | ||||
10 | |||||
11 | # for development, you can enable ASSERTS by adding | ||||
12 | # $ENV{FOSWIKI_ASSERTS} = 1; | ||||
13 | # to your bin/LocalLib.cfg | ||||
14 | |||||
15 | # Declare package Foswiki, so globals end up in $Foswiki space | ||||
16 | package Foswiki; | ||||
17 | |||||
18 | 2 | 148µs | 2 | 129µs | # spent 84µs (38+45) within Foswiki::BEGIN@18 which was called:
# once (38µs+45µs) by main::BEGIN@6 at line 18 # spent 84µs making 1 call to Foswiki::BEGIN@18
# spent 45µs making 1 call to vars::import |
19 | |||||
20 | 1 | 1µs | my $LocalLib = __FILE__; # the dir where this setlib.cfg resides | ||
21 | 1 | 6µs | $LocalLib =~ s/setlib.cfg$/LocalLib.cfg/; | ||
22 | 1 | 107µs | require $LocalLib if -r $LocalLib; | ||
23 | # if foswikiLibPath isn't defined, then see if $twikiLibPath is | ||||
24 | # for compatibility | ||||
25 | 1 | 600ns | $foswikiLibPath = $twikiLibPath unless defined( $foswikiLibPath ); | ||
26 | |||||
27 | 1 | 7µs | unless (( defined ($foswikiLibPath) ) and (-e $foswikiLibPath)) { | ||
28 | 2 | 652µs | 2 | 6.19ms | # spent 6.14ms (5.68+465µs) within Foswiki::BEGIN@28 which was called:
# once (5.68ms+465µs) by main::BEGIN@6 at line 28 # spent 6.14ms making 1 call to Foswiki::BEGIN@28
# spent 44µs making 1 call to Exporter::import |
29 | my $bindir = __FILE__; | ||||
30 | $bindir =~ s/setlib.cfg$//; | ||||
31 | ( $foswikiLibPath ) = ($foswikiLibPath = Cwd::abs_path( "$bindir../lib" )) =~ /(.*)/; | ||||
32 | } | ||||
33 | 1 | 600ns | if ($foswikiLibPath eq "") { | ||
34 | $foswikiLibPath = "../lib"; | ||||
35 | warn "using relative path for libs - some plugins may break"; | ||||
36 | } | ||||
37 | |||||
38 | # Path to local Perl modules | ||||
39 | 1 | 1µs | my $defaultingCPANBASE = !defined($CPANBASE); | ||
40 | 1 | 2µs | $CPANBASE = "$foswikiLibPath/CPAN/lib" unless $CPANBASE; | ||
41 | 1 | 4µs | if ( -e $CPANBASE ) { | ||
42 | 1 | 118µs | require Config; | ||
43 | 1 | 11µs | 1 | 5µs | my $VER = $Config::Config{version}; # spent 5µs making 1 call to Config::FETCH |
44 | 1 | 5µs | 1 | 3µs | my $SITEARCH = $Config::Config{archname}; # spent 3µs making 1 call to Config::FETCH |
45 | 1 | 5µs | push @localPerlLibPath, ( "$CPANBASE/arch", "$CPANBASE/$VER/$SITEARCH", "$CPANBASE/$VER", "$CPANBASE" ); | ||
46 | } | ||||
47 | |||||
48 | # Prepend to @INC, the Perl search path for modules | ||||
49 | 1 | 2µs | unshift @INC, $foswikiLibPath; | ||
50 | 1 | 2µs | if ($defaultingCPANBASE) { | ||
51 | push @INC, @localPerlLibPath if @localPerlLibPath; | ||||
52 | } else { | ||||
53 | unshift @INC, @localPerlLibPath if @localPerlLibPath; | ||||
54 | } | ||||
55 | |||||
56 | 1 | 26µs | 1; # Return success for module loading | ||
57 | |||||
58 | __END__ |