"Fossies" - the Fresh Open Source Software Archive

Member "install-tl-20200916/tlpkg/tlperl/lib/Config.pm.orig" (7 Mar 2020, 3081 Bytes) of package /windows/misc/install-tl.zip:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    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 # https://github.com/Perl/perl5/blob/blead/Porting/Glossary
    7 
    8 package Config;
    9 use strict;
   10 use warnings;
   11 our ( %Config, $VERSION );
   12 
   13 $VERSION = "5.030001";
   14 
   15 # Skip @Config::EXPORT because it only contains %Config, which we special
   16 # case below as it's not a function. @Config::EXPORT won't change in the
   17 # lifetime of Perl 5.
   18 my %Export_Cache = (myconfig => 1, config_sh => 1, config_vars => 1,
   19 		    config_re => 1, compile_date => 1, local_patches => 1,
   20 		    bincompat_options => 1, non_bincompat_options => 1,
   21 		    header_files => 1);
   22 
   23 @Config::EXPORT = qw(%Config);
   24 @Config::EXPORT_OK = keys %Export_Cache;
   25 
   26 # Need to stub all the functions to make code such as print Config::config_sh
   27 # keep working
   28 
   29 sub bincompat_options;
   30 sub compile_date;
   31 sub config_re;
   32 sub config_sh;
   33 sub config_vars;
   34 sub header_files;
   35 sub local_patches;
   36 sub myconfig;
   37 sub non_bincompat_options;
   38 
   39 # Define our own import method to avoid pulling in the full Exporter:
   40 sub import {
   41     shift;
   42     @_ = @Config::EXPORT unless @_;
   43 
   44     my @funcs = grep $_ ne '%Config', @_;
   45     my $export_Config = @funcs < @_ ? 1 : 0;
   46 
   47     no strict 'refs';
   48     my $callpkg = caller(0);
   49     foreach my $func (@funcs) {
   50 	die qq{"$func" is not exported by the Config module\n}
   51 	    unless $Export_Cache{$func};
   52 	*{$callpkg.'::'.$func} = \&{$func};
   53     }
   54 
   55     *{"$callpkg\::Config"} = \%Config if $export_Config;
   56     return;
   57 }
   58 
   59 die "$0: Perl lib version (5.30.1) doesn't match executable '$^X' version ($])"
   60     unless $^V;
   61 
   62 $^V eq 5.30.1
   63     or die sprintf "%s: Perl lib version (5.30.1) doesn't match executable '$^X' version (%vd)", $0, $^V;
   64 
   65 
   66 sub FETCH {
   67     my($self, $key) = @_;
   68 
   69     # check for cached value (which may be undef so we use exists not defined)
   70     return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
   71 }
   72 
   73 sub TIEHASH {
   74     bless $_[1], $_[0];
   75 }
   76 
   77 sub DESTROY { }
   78 
   79 sub AUTOLOAD {
   80     require 'Config_heavy.pl';
   81     goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/;
   82     die "&Config::AUTOLOAD failed on $Config::AUTOLOAD";
   83 }
   84 
   85 # tie returns the object, so the value returned to require will be true.
   86 tie %Config, 'Config', {
   87     archlibexp => 'd:\\tlperl\\lib',
   88     archname => 'MSWin32-x86-multi-thread',
   89     cc => 'gcc',
   90     d_readlink => undef,
   91     d_symlink => undef,
   92     dlext => 'dll',
   93     dlsrc => 'dl_win32.xs',
   94     dont_use_nlink => undef,
   95     exe_ext => '.exe',
   96     inc_version_list => '',
   97     intsize => '4',
   98     ldlibpthname => '',
   99     libpth => 'D:\\mingw2020\\lib',
  100     osname => 'MSWin32',
  101     osvers => '10.0.18363.418',
  102     path_sep => ';',
  103     privlibexp => 'd:\\tlperl\\lib',
  104     scriptdir => 'd:\\tlperl\\bin',
  105     sitearchexp => 'd:\\tlperl\\site\\lib',
  106     sitelibexp => 'd:\\tlperl\\site\\lib',
  107     so => 'dll',
  108     useithreads => 'define',
  109     usevendorprefix => undef,
  110     version => '5.30.1',
  111 };