david
39292d680f
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_Web/trunk@8 5f5cdc87-09bc-1947-a3a7-c45bb6b47c2a
106 lines
3.2 KiB
Perl
106 lines
3.2 KiB
Perl
# This file was created by configpm when Perl was built. Any changes
|
|
# made to this file will be lost the next time perl is built.
|
|
|
|
package Config;
|
|
use strict;
|
|
# use warnings; Pulls in Carp
|
|
# use vars pulls in Carp
|
|
@Config::EXPORT = qw(%Config);
|
|
@Config::EXPORT_OK = qw(myconfig config_sh config_vars config_re);
|
|
|
|
# Need to stub all the functions to make code such as print Config::config_sh
|
|
# keep working
|
|
|
|
sub myconfig;
|
|
sub config_sh;
|
|
sub config_vars;
|
|
sub config_re;
|
|
|
|
my %Export_Cache = map {($_ => 1)} (@Config::EXPORT, @Config::EXPORT_OK);
|
|
|
|
our %Config;
|
|
|
|
# Define our own import method to avoid pulling in the full Exporter:
|
|
sub import {
|
|
my $pkg = shift;
|
|
@_ = @Config::EXPORT unless @_;
|
|
|
|
my @funcs = grep $_ ne '%Config', @_;
|
|
my $export_Config = @funcs < @_ ? 1 : 0;
|
|
|
|
no strict 'refs';
|
|
my $callpkg = caller(0);
|
|
foreach my $func (@funcs) {
|
|
die sprintf qq{"%s" is not exported by the %s module\n},
|
|
$func, __PACKAGE__ unless $Export_Cache{$func};
|
|
*{$callpkg.'::'.$func} = \&{$func};
|
|
}
|
|
|
|
*{"$callpkg\::Config"} = \%Config if $export_Config;
|
|
return;
|
|
}
|
|
|
|
die "Perl lib version (v5.8.7) doesn't match executable version ($])"
|
|
unless $^V;
|
|
|
|
$^V eq v5.8.7
|
|
or die "Perl lib version (v5.8.7) doesn't match executable version (" .
|
|
sprintf("v%vd",$^V) . ")";
|
|
|
|
|
|
sub FETCH {
|
|
my($self, $key) = @_;
|
|
|
|
# check for cached value (which may be undef so we use exists not defined)
|
|
return $self->{$key} if exists $self->{$key};
|
|
|
|
return $self->fetch_string($key);
|
|
}
|
|
sub TIEHASH {
|
|
bless $_[1], $_[0];
|
|
}
|
|
|
|
sub DESTROY { }
|
|
|
|
sub AUTOLOAD {
|
|
my $config_heavy = 'Config_heavy.pl';
|
|
if (defined &ActivePerl::_CONFIG_HEAVY) {
|
|
$config_heavy = ActivePerl::_CONFIG_HEAVY();
|
|
}
|
|
require $config_heavy;
|
|
goto \&launcher;
|
|
die "&Config::AUTOLOAD failed on $Config::AUTOLOAD";
|
|
}
|
|
|
|
sub __unused {
|
|
# XXX Keep PerlApp happy
|
|
require 'Config_heavy.pl';
|
|
}
|
|
|
|
tie %Config, 'Config', {
|
|
archlibexp => 'C:\\TEMP\\perl-------------------------------------------please-run-the-install-script------------------------------------------\\lib',
|
|
archname => 'MSWin32-x86-multi-thread',
|
|
d_readlink => undef,
|
|
d_symlink => undef,
|
|
dlsrc => 'dl_win32.xs',
|
|
dont_use_nlink => undef,
|
|
exe_ext => '.exe',
|
|
inc_version_list => '',
|
|
intsize => '4',
|
|
ldlibpthname => '',
|
|
lib_ext => '.lib',
|
|
osname => 'MSWin32',
|
|
osvers => '5.0',
|
|
path_sep => ';',
|
|
privlibexp => 'C:\\TEMP\\perl-------------------------------------------please-run-the-install-script------------------------------------------\\lib',
|
|
scriptdir => 'C:\\TEMP\\perl-------------------------------------------please-run-the-install-script------------------------------------------\\bin',
|
|
sitearchexp => 'C:\\TEMP\\perl-------------------------------------------please-run-the-install-script------------------------------------------\\site\\lib',
|
|
sitelibexp => 'C:\\TEMP\\perl-------------------------------------------please-run-the-install-script------------------------------------------\\site\\lib',
|
|
so => 'dll',
|
|
useithreads => 'define',
|
|
usevendorprefix => undef,
|
|
version => '5.8.7',
|
|
};
|
|
|
|
1;
|