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 | package Config;
|
---|
5 | use strict;
|
---|
6 | # use warnings; Pulls in Carp
|
---|
7 | # use vars pulls in Carp
|
---|
8 | @Config::EXPORT = qw(%Config);
|
---|
9 | @Config::EXPORT_OK = qw(myconfig config_sh config_vars config_re);
|
---|
10 |
|
---|
11 | # Need to stub all the functions to make code such as print Config::config_sh
|
---|
12 | # keep working
|
---|
13 |
|
---|
14 | sub myconfig;
|
---|
15 | sub config_sh;
|
---|
16 | sub config_vars;
|
---|
17 | sub config_re;
|
---|
18 |
|
---|
19 | my %Export_Cache = map {($_ => 1)} (@Config::EXPORT, @Config::EXPORT_OK);
|
---|
20 |
|
---|
21 | our %Config;
|
---|
22 |
|
---|
23 | # Define our own import method to avoid pulling in the full Exporter:
|
---|
24 | sub import {
|
---|
25 | my $pkg = shift;
|
---|
26 | @_ = @Config::EXPORT unless @_;
|
---|
27 |
|
---|
28 | my @funcs = grep $_ ne '%Config', @_;
|
---|
29 | my $export_Config = @funcs < @_ ? 1 : 0;
|
---|
30 |
|
---|
31 | no strict 'refs';
|
---|
32 | my $callpkg = caller(0);
|
---|
33 | foreach my $func (@funcs) {
|
---|
34 | die sprintf qq{"%s" is not exported by the %s module\n},
|
---|
35 | $func, __PACKAGE__ unless $Export_Cache{$func};
|
---|
36 | *{$callpkg.'::'.$func} = \&{$func};
|
---|
37 | }
|
---|
38 |
|
---|
39 | *{"$callpkg\::Config"} = \%Config if $export_Config;
|
---|
40 | return;
|
---|
41 | }
|
---|
42 |
|
---|
43 | die "Perl lib version (v5.8.8) doesn't match executable version ($])"
|
---|
44 | unless $^V;
|
---|
45 |
|
---|
46 | $^V eq v5.8.8
|
---|
47 | or die "Perl lib version (v5.8.8) doesn't match executable version (" .
|
---|
48 | sprintf("v%vd",$^V) . ")";
|
---|
49 |
|
---|
50 |
|
---|
51 | sub FETCH {
|
---|
52 | my($self, $key) = @_;
|
---|
53 |
|
---|
54 | # check for cached value (which may be undef so we use exists not defined)
|
---|
55 | return $self->{$key} if exists $self->{$key};
|
---|
56 |
|
---|
57 | return $self->fetch_string($key);
|
---|
58 | }
|
---|
59 | sub TIEHASH {
|
---|
60 | bless $_[1], $_[0];
|
---|
61 | }
|
---|
62 |
|
---|
63 | sub DESTROY { }
|
---|
64 |
|
---|
65 | sub AUTOLOAD {
|
---|
66 | require 'Config_heavy.pl';
|
---|
67 | goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/;
|
---|
68 | die "&Config::AUTOLOAD failed on $Config::AUTOLOAD";
|
---|
69 | }
|
---|
70 |
|
---|
71 | # tie returns the object, so the value returned to require will be true.
|
---|
72 | tie %Config, 'Config', {
|
---|
73 | archlibexp => 'c:\\shaoqunWu\\perl\\lib',
|
---|
74 | archname => 'MSWin32-x86-multi-thread',
|
---|
75 | cc => 'cl',
|
---|
76 | d_readlink => undef,
|
---|
77 | d_symlink => undef,
|
---|
78 | dlsrc => 'dl_win32.xs',
|
---|
79 | dont_use_nlink => undef,
|
---|
80 | exe_ext => '.exe',
|
---|
81 | inc_version_list => '',
|
---|
82 | intsize => '4',
|
---|
83 | ldlibpthname => '',
|
---|
84 | libpth => 'C:\\PROGRA~1\\MICROS~3\\VC98\\lib',
|
---|
85 | osname => 'MSWin32',
|
---|
86 | osvers => '5.1',
|
---|
87 | path_sep => ';',
|
---|
88 | privlibexp => 'c:\\shaoqunWu\\perl\\lib',
|
---|
89 | scriptdir => 'c:\\shaoqunWu\\perl\\bin',
|
---|
90 | sitearchexp => 'c:\\shaoqunWu\\perl\\site\\lib',
|
---|
91 | sitelibexp => 'c:\\shaoqunWu\\perl\\site\\lib',
|
---|
92 | useithreads => 'define',
|
---|
93 | usevendorprefix => undef,
|
---|
94 | version => '5.8.8',
|
---|
95 | };
|
---|