diff options
author | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
commit | 12679ab7d3c2a210f4123163671b532b8b55d5f9 (patch) | |
tree | 0060d13467186ad977f4e73488ee20dd6c0017ab /systems/texlive/tlnet/tlpkg/tlperl/lib/Config.orig.pm | |
parent | 62170822e034fdd3f81de7274835d0d3b0467100 (diff) |
CTAN sync 202403150306
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Config.orig.pm')
-rwxr-xr-x | systems/texlive/tlnet/tlpkg/tlperl/lib/Config.orig.pm | 111 |
1 files changed, 111 insertions, 0 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Config.orig.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Config.orig.pm new file mode 100755 index 0000000000..df2a12b790 --- /dev/null +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Config.orig.pm @@ -0,0 +1,111 @@ +# 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. + +# for a description of the variables, please have a look at the +# Glossary file, as written in the Porting folder, or use the url: +# https://github.com/Perl/perl5/blob/blead/Porting/Glossary + +package Config; +use strict; +use warnings; +our ( %Config, $VERSION ); + +$VERSION = "5.038002"; + +# Skip @Config::EXPORT because it only contains %Config, which we special +# case below as it's not a function. @Config::EXPORT won't change in the +# lifetime of Perl 5. +my %Export_Cache = (myconfig => 1, config_sh => 1, config_vars => 1, + config_re => 1, compile_date => 1, local_patches => 1, + bincompat_options => 1, non_bincompat_options => 1, + header_files => 1); + +@Config::EXPORT = qw(%Config); +@Config::EXPORT_OK = keys %Export_Cache; + +# Need to stub all the functions to make code such as print Config::config_sh +# keep working + +sub bincompat_options; +sub compile_date; +sub config_re; +sub config_sh; +sub config_vars; +sub header_files; +sub local_patches; +sub myconfig; +sub non_bincompat_options; + +# Define our own import method to avoid pulling in the full Exporter: +sub import { + 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 qq{"$func" is not exported by the Config module\n} + unless $Export_Cache{$func}; + *{$callpkg.'::'.$func} = \&{$func}; + } + + *{"$callpkg\::Config"} = \%Config if $export_Config; + return; +} + +die "$0: Perl lib version (5.38.2) doesn't match executable '$^X' version ($])" + unless $^V; + +$^V eq 5.38.2 + or die sprintf "%s: Perl lib version (5.38.2) doesn't match executable '$^X' version (%vd)", $0, $^V; + + +sub FETCH { + my($self, $key) = @_; + + # check for cached value (which may be undef so we use exists not defined) + return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key); +} + +sub TIEHASH { + bless $_[1], $_[0]; +} + +sub DESTROY { } + +sub AUTOLOAD { + require 'Config_heavy.pl'; + goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/; + die "&Config::AUTOLOAD failed on $Config::AUTOLOAD"; +} + +# tie returns the object, so the value returned to require will be true. +tie %Config, 'Config', { + archlibexp => 'd:\\tlperl\\lib', + archname => 'MSWin32-x64-multi-thread', + cc => 'cl', + d_readlink => 'define', + d_symlink => 'define', + dlext => 'dll', + dlsrc => 'dl_win32.xs', + dont_use_nlink => undef, + exe_ext => '.exe', + inc_version_list => '', + intsize => '4', + ldlibpthname => '', + libpth => '"C:\\Program Files (x86)\\Microsoft Visual Studio\\2022\\BuildTools\\VC\\Tools\\MSVC\\14.38.33130\\\\lib\\x64"', + osname => 'MSWin32', + osvers => '10.0.22631.3085', + path_sep => ';', + privlibexp => 'd:\\tlperl\\lib', + scriptdir => 'd:\\tlperl\\bin', + sitearchexp => 'd:\\tlperl\\site\\lib', + sitelibexp => 'd:\\tlperl\\site\\lib', + so => 'dll', + useithreads => 'define', + usevendorprefix => undef, + version => '5.38.2', +}; |