Commit | Line | Data |
820f978f |
1 | # This file was created by configpm when Perl was built. Any changes |
2 | # made to this file will be lost the next time perl is built. |
3 | |
4 | # for a description of the variables, please have a look at the |
5 | # Glossary file, as written in the Porting folder, or use the url: |
6 | # http://perl5.git.perl.org/perl.git/blob/HEAD:/Porting/Glossary |
7 | |
8 | package Config; |
9 | use strict; |
10 | use warnings; |
11 | use vars '%Config'; |
12 | |
13 | # Skip @Config::EXPORT because it only contains %Config, which we special |
14 | # case below as it's not a function. @Config::EXPORT won't change in the |
15 | # lifetime of Perl 5. |
16 | my %Export_Cache = (myconfig => 1, config_sh => 1, config_vars => 1, |
17 | config_re => 1, compile_date => 1, local_patches => 1, |
18 | bincompat_options => 1, non_bincompat_options => 1, |
19 | header_files => 1); |
20 | |
21 | @Config::EXPORT = qw(%Config); |
22 | @Config::EXPORT_OK = keys %Export_Cache; |
23 | |
24 | # Need to stub all the functions to make code such as print Config::config_sh |
25 | # keep working |
26 | |
27 | sub bincompat_options; |
28 | sub compile_date; |
29 | sub config_re; |
30 | sub config_sh; |
31 | sub config_vars; |
32 | sub header_files; |
33 | sub local_patches; |
34 | sub myconfig; |
35 | sub non_bincompat_options; |
36 | |
37 | # Define our own import method to avoid pulling in the full Exporter: |
38 | sub import { |
39 | shift; |
40 | @_ = @Config::EXPORT unless @_; |
41 | |
42 | my @funcs = grep $_ ne '%Config', @_; |
43 | my $export_Config = @funcs < @_ ? 1 : 0; |
44 | |
45 | no strict 'refs'; |
46 | my $callpkg = caller(0); |
47 | foreach my $func (@funcs) { |
48 | die qq{"$func" is not exported by the Config module\n} |
49 | unless $Export_Cache{$func}; |
50 | *{$callpkg.'::'.$func} = \&{$func}; |
51 | } |
52 | |
53 | *{"$callpkg\::Config"} = \%Config if $export_Config; |
54 | return; |
55 | } |
56 | |
57 | die "Perl lib version (5.14.2) doesn't match executable '$0' version ($])" |
58 | unless $^V; |
59 | |
60 | $^V eq 5.14.2 |
61 | or die "Perl lib version (5.14.2) doesn't match executable '$0' version (" . |
62 | sprintf("v%vd",$^V) . ")"; |
63 | |
64 | |
65 | sub FETCH { |
66 | my($self, $key) = @_; |
67 | |
68 | # check for cached value (which may be undef so we use exists not defined) |
69 | return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key); |
70 | } |
71 | |
72 | sub TIEHASH { |
73 | bless $_[1], $_[0]; |
74 | } |
75 | |
76 | sub DESTROY { } |
77 | |
78 | sub AUTOLOAD { |
79 | require 'Config_heavy.pl'; |
80 | goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/; |
81 | die "&Config::AUTOLOAD failed on $Config::AUTOLOAD"; |
82 | } |
83 | |
84 | # tie returns the object, so the value returned to require will be true. |
85 | tie %Config, 'Config', { |
86 | archlibexp => '/usr/local/apps-perl/lib/5.14.2/x86_64-linux', |
87 | archname => 'x86_64-linux', |
88 | cc => 'cc', |
89 | d_readlink => 'define', |
90 | d_symlink => 'define', |
91 | dlext => 'so', |
92 | dlsrc => 'dl_dlopen.xs', |
93 | dont_use_nlink => undef, |
94 | exe_ext => '', |
95 | inc_version_list => ' ', |
96 | intsize => '4', |
97 | ldlibpthname => 'LD_LIBRARY_PATH', |
98 | libpth => '/usr/local/lib /lib/../lib /usr/lib/../lib /lib /usr/lib /lib64 /usr/lib64 /usr/local/lib64', |
99 | osname => 'linux', |
100 | osvers => '2.6.21.7-2.fc8xen-ec2-v1.0', |
101 | path_sep => ':', |
102 | privlibexp => '/usr/local/apps-perl/lib/5.14.2', |
103 | scriptdir => '/usr/local/apps-perl/bin', |
104 | sitearchexp => '/usr/local/apps-perl/lib/site_perl/5.14.2/x86_64-linux', |
105 | sitelibexp => '/usr/local/apps-perl/lib/site_perl/5.14.2', |
106 | so => 'so', |
107 | useithreads => undef, |
108 | usevendorprefix => undef, |
109 | version => '5.14.2', |
110 | }; |