use subs qw(unlink link chmod);
require File::Path;
-use Config;
BEGIN {
- if ($Config{userelocatableinc}) {
+ require Config;
+ if ($Config::Config{userelocatableinc}) {
# This might be a considered a hack. Need to get information about the
# configuration from Config.pm *before* Config.pm expands any .../
# prefixes.
# So we set $^X to pretend that we're the already installed perl, so
# Config.pm does its ... expansion off that location.
- my $location = $Config{initialinstalllocation};
+ my $location = $Config::Config{initialinstalllocation};
die <<'OS' unless defined $location;
$Config{initialinstalllocation} is not defined - can't install a relocatable
perl without this.
# You never saw us. We weren't here.
require Config;
- Config->import;
}
+ Config->import;
}
if ($Config{d_umask}) {
#!./perl -w
+
BEGIN {
@INC = qw(lib);
# This needs to be at BEGIN time, before any use of Config
+ # install_lib itself loads and imports Config into main::
require './install_lib.pl';
}
+
use strict;
use Getopt::Long;
#!./perl -w
BEGIN {
- require 5.004;
chdir '..' if !-d 'lib' and -d '../lib';
@INC = 'lib';
$ENV{PERL5LIB} = 'lib';
# This needs to be at BEGIN time, before any use of Config
+ # install_lib itself loads and imports Config into main::
require './install_lib.pl';
}