[Summary view] [Print] [Text view]

   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 (5.10.0) doesn't match executable version ($])"
  44      unless $^V;
  45  
  46  $^V eq 5.10.0
  47      or die "Perl lib version (5.10.0) 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 => '/opt/perl/lib/5.10.0/i586-linux-thread-multi',
  74      archname => 'i586-linux-thread-multi',
  75      cc => 'gcc',
  76      d_readlink => 'define',
  77      d_symlink => 'define',
  78      dlsrc => 'dl_dlopen.xs',
  79      dont_use_nlink => undef,
  80      exe_ext => '',
  81      inc_version_list => ' ',
  82      intsize => '4',
  83      ldlibpthname => 'LD_LIBRARY_PATH',
  84      libpth => '/home/cheche/release/unattended/linuxboot/fakelib /home/cheche/release/unattended/linuxboot/stage1/lib',
  85      osname => 'linux',
  86      osvers => '2.6.24-etchnhalf.1-686',
  87      path_sep => ':',
  88      privlibexp => '/opt/perl/lib/5.10.0',
  89      scriptdir => '/opt/perl/bin',
  90      sitearchexp => '/opt/perl/lib/site_perl/5.10.0/i586-linux-thread-multi',
  91      sitelibexp => '/opt/perl/lib/site_perl/5.10.0',
  92      useithreads => 'define',
  93      usevendorprefix => undef,
  94      version => '5.10.0',
  95  };