MM & Encode fixes
[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / MakeMaker.pm
index 435d984..a505b15 100644 (file)
-BEGIN {require 5.002;} # MakeMaker 5.17 was the last MakeMaker that was compatible with perl5.001m
+BEGIN {require 5.004;}
 
 package ExtUtils::MakeMaker;
 
-$VERSION = "5.48_03";
-$Version_OK = "5.17";  # Makefiles older than $Version_OK will die
-                       # (Will be checked from MakeMaker version 4.13 onwards)
-($Revision = substr(q$Revision: 1.4 $, 10)) =~ s/\s+$//;
-
-
+$VERSION = "5.54_01";
+$Version_OK = "5.49";   # Makefiles older than $Version_OK will die
+                        # (Will be checked from MakeMaker version 4.13 onwards)
+($Revision = substr(q$Revision: 1.23 $, 10)) =~ s/\s+$//;
 
 require Exporter;
 use Config;
 use Carp ();
 
 use vars qw(
-           @ISA @EXPORT @EXPORT_OK $AUTOLOAD
-           $ISA_TTY $Revision $VERSION $Verbose $Version_OK %Config 
-            %Keep_after_flush %MM_Sections %Prepend_dot_dot 
+            @ISA @EXPORT @EXPORT_OK
+            $ISA_TTY $Revision $VERSION $Verbose $Version_OK %Config 
+            %Keep_after_flush %MM_Sections @Prepend_dot_dot 
             %Recognized_Att_Keys @Get_from_Config @MM_Sections @Overridable 
             @Parent $PACKNAME
-          );
+           );
 use strict;
 
-# &DynaLoader::mod2fname should be available to miniperl, thus 
-# should be a pseudo-builtin (cmp. os2.c).
-#eval {require DynaLoader;};
-
-#
-# Set up the inheritance before we pull in the MM_* packages, because they
-# import variables and functions from here
-#
 @ISA = qw(Exporter);
 @EXPORT = qw(&WriteMakefile &writeMakefile $Verbose &prompt);
-@EXPORT_OK = qw($VERSION &Version_check &neatvalue &mkbootstrap &mksymlists);
-
-#
-# Dummy package MM inherits actual methods from OS-specific
-# default packages.  We use this intermediate package so
-# MY::XYZ->func() can call MM->func() and get the proper
-# default routine without having to know under what OS
-# it's running.
-#
-@MM::ISA = qw[ExtUtils::MM_Unix ExtUtils::Liblist::Kid ExtUtils::MakeMaker];
-
-#
-# Setup dummy package:
-# MY exists for overriding methods to be defined within
-#
-{
-    package MY;
-    @MY::ISA = qw(MM);
-###    sub AUTOLOAD { use Devel::Symdump; print Devel::Symdump->rnew->as_string; Carp::confess "hey why? $AUTOLOAD" }
-    package MM;
-    sub DESTROY {}
-}
-
-# "predeclare the package: we only load it via AUTOLOAD
-# but we have already mentioned it in @ISA
-package ExtUtils::Liblist::Kid;
+@EXPORT_OK = qw($VERSION &neatvalue &mkbootstrap &mksymlists);
 
-package ExtUtils::MakeMaker;
-#
-# Now we can pull in the friends
-#
+# These will go away once the last of the Win32 & VMS specific code is 
+# purged.
 my $Is_VMS     = $^O eq 'VMS';
-my $Is_OS2     = $^O eq 'os2';
-my $Is_Mac     = $^O eq 'MacOS';
 my $Is_Win32   = $^O eq 'MSWin32';
-my $Is_Cygwin  = $^O eq 'cygwin';
-my $Is_NetWare = $Config{osname} eq 'NetWare';
-my $Is_BeOS    = $^O =~ /beos/i;    # XXX should this be that loose?
-
-require ExtUtils::MM_Unix;
-
-if ($Is_VMS) {
-    require ExtUtils::MM_VMS;
-    require VMS::Filespec; # is a noop as long as we require it within MM_VMS
-}
-if ($Is_OS2) {
-    require ExtUtils::MM_OS2;
-}
-if ($Is_Mac) {
-    require ExtUtils::MM_MacOS;
-}
-if ($Is_NetWare) {
-    require ExtUtils::MM_NW5;
-    $Is_Win32 = 0;
-}
-if ($Is_Win32) {
-    require ExtUtils::MM_Win32;
-}
-if ($Is_Cygwin) {
-    require ExtUtils::MM_Cygwin;
-}
-if ($Is_BeOS) {
-    require ExtUtils::MM_BeOS;
-}
 
 full_setup();
 
-# The use of the Version_check target has been dropped between perl
-# 5.5.63 and 5.5.64. We must keep the subroutine for a while so that
-# old Makefiles can satisfy the Version_check target.
-
-sub Version_check {
-    my($checkversion) = @_;
-    die "Your Makefile was built with ExtUtils::MakeMaker v $checkversion.
-Current Version is $ExtUtils::MakeMaker::VERSION. There have been considerable
-changes in the meantime.
-Please rerun 'perl Makefile.PL' to regenerate the Makefile.\n"
-    if $checkversion < $Version_OK;
-    printf STDOUT "%s %s %s %s.\n", "Makefile built with ExtUtils::MakeMaker v",
-    $checkversion, "Current Version is", $VERSION
-       unless $checkversion == $VERSION;
-}
+require ExtUtils::MM;  # Things like CPAN assume loading ExtUtils::MakeMaker
+                       # will give them MM.
 
 sub warnhandler {
     $_[0] =~ /^Use of uninitialized value/ && return;
@@ -126,25 +45,34 @@ sub WriteMakefile {
     Carp::croak "WriteMakefile: Need even number of args" if @_ % 2;
     local $SIG{__WARN__} = \&warnhandler;
 
+    require ExtUtils::MY;
     my %att = @_;
     MM->new(\%att)->flush;
 }
 
 sub prompt ($;$) {
     my($mess,$def)=@_;
-    $ISA_TTY = -t STDIN && (-t STDOUT || !(-f STDOUT || -c STDOUT)) ;  # Pipe?
+    $ISA_TTY = -t STDIN && (-t STDOUT || !(-f STDOUT || -c STDOUT)) ;   # Pipe?
     Carp::confess("prompt function called without an argument") unless defined $mess;
     my $dispdef = defined $def ? "[$def] " : " ";
     $def = defined $def ? $def : "";
     my $ans;
     local $|=1;
+    local $\;
     print "$mess $dispdef";
     if ($ISA_TTY && !$ENV{PERL_MM_USE_DEFAULT}) {
-       chomp($ans = <STDIN>);
-    } else {
-       print "$def\n";
+        $ans = <STDIN>;
+        if( defined $ans ) {
+            chomp $ans;
+        }
+        else { # user hit ctrl-D
+            print "\n";
+        }
+    }
+    else {
+        print "$def\n";
     }
-    return ($ans ne '') ? $ans : $def;
+    return (!defined $ans || $ans eq '') ? $def : $ans;
 }
 
 sub eval_in_subdirs {
@@ -152,27 +80,30 @@ sub eval_in_subdirs {
     use Cwd qw(cwd abs_path);
     my $pwd = cwd();
     local @INC = map eval {abs_path($_) if -e} || $_, @INC;
+    push @INC, '.';     # '.' has to always be at the end of @INC
 
     foreach my $dir (@{$self->{DIR}}){
-       my($abs) = $self->catdir($pwd,$dir);
-       $self->eval_in_x($abs);
+        my($abs) = $self->catdir($pwd,$dir);
+        $self->eval_in_x($abs);
     }
     chdir $pwd;
 }
 
 sub eval_in_x {
     my($self,$dir) = @_;
-    package main;
     chdir $dir or Carp::carp("Couldn't change to directory $dir: $!");
 
-    eval { do './Makefile.PL' };
+    {
+        package main;
+        do './Makefile.PL';
+    };
     if ($@) {
-#        if ($@ =~ /prerequisites/) {
-#            die "MakeMaker WARNING: $@";
-#        } else {
-#            warn "WARNING from evaluation of $dir/Makefile.PL: $@";
-#        }
-       warn "WARNING from evaluation of $dir/Makefile.PL: $@";
+#         if ($@ =~ /prerequisites/) {
+#             die "MakeMaker WARNING: $@";
+#         } else {
+#             warn "WARNING from evaluation of $dir/Makefile.PL: $@";
+#         }
+        warn "WARNING from evaluation of $dir/Makefile.PL: $@";
     }
 }
 
@@ -186,13 +117,13 @@ sub full_setup {
 
     AUTHOR ABSTRACT ABSTRACT_FROM BINARY_LOCATION
     C CAPI CCFLAGS CONFIG CONFIGURE DEFINE DIR DISTNAME DL_FUNCS DL_VARS
-    EXCLUDE_EXT EXE_FILES FIRST_MAKEFILE FULLPERL FUNCLIST H 
-    HTMLLIBPODS HTMLSCRIPTPODS IMPORTS
-    INC INCLUDE_EXT INSTALLARCHLIB INSTALLBIN INSTALLDIRS INSTALLHTMLPRIVLIBDIR
-    INSTALLHTMLSCRIPTDIR INSTALLHTMLSITELIBDIR INSTALLMAN1DIR
+    EXCLUDE_EXT EXE_FILES FIRST_MAKEFILE 
+    FULLPERL FULLPERLRUN FULLPERLRUNINST
+    FUNCLIST H IMPORTS
+    INC INCLUDE_EXT INSTALLARCHLIB INSTALLBIN INSTALLDIRS
+    INSTALLMAN1DIR
     INSTALLMAN3DIR INSTALLPRIVLIB INSTALLSCRIPT INSTALLSITEARCH
     INSTALLSITELIB INST_ARCHLIB INST_BIN INST_EXE INST_LIB
-    INST_HTMLLIBDIR INST_HTMLSCRIPTDIR
     INST_MAN1DIR INST_MAN3DIR INST_SCRIPT LDFROM LIB LIBPERL_A LIBS
     LINKTYPE MAKEAPERL MAKEFILE MAN1PODS MAN3PODS MAP_TARGET MYEXTLIB
     PERL_MALLOC_OK
@@ -207,7 +138,7 @@ sub full_setup {
     tool_autosplit
     MACPERL_SRC MACPERL_LIB MACLIBS_68K MACLIBS_PPC MACLIBS_SC MACLIBS_MRC
     MACLIBS_ALL_68K MACLIBS_ALL_PPC MACLIBS_SHARED
-       /;
+        /;
 
     # IMPORTS is used under OS/2 and Win32
 
@@ -221,7 +152,7 @@ sub full_setup {
 
 
     @MM_Sections = 
-       qw(
+        qw(
 
  post_initialize const_config constants tool_autosplit tool_xsubpp
  tools_other dist macro depend cflags const_loadlibs const_cccmd
@@ -230,25 +161,25 @@ sub full_setup {
  pasthru
 
  c_o xs_c xs_o top_targets linkext dlsyms dynamic dynamic_bs
- dynamic_lib static static_lib htmlifypods manifypods processPL
+ dynamic_lib static static_lib manifypods processPL
  installbin subdirs
  clean realclean dist_basics dist_core dist_dir dist_test dist_ci
  install force perldepend makefile staticmake test ppd
 
-         ); # loses section ordering
+          ); # loses section ordering
 
     @Overridable = @MM_Sections;
     push @Overridable, qw[
 
  dir_target libscan makeaperl needs_linking perm_rw perm_rwx
- subdir_x test_via_harness test_via_script
-                        ];
+ subdir_x test_via_harness test_via_script init_PERL
+                         ];
 
     push @MM_Sections, qw[
 
  pm_to_blib selfdocument
 
-                        ];
+                         ];
 
     # Postamble needs to be the last that was always the case
     push @MM_Sections, "postamble";
@@ -259,19 +190,19 @@ sub full_setup {
 
     # we will use all these variables in the Makefile
     @Get_from_Config = 
-       qw(
-          ar cc cccdlflags ccdlflags dlext dlsrc ld lddlflags ldflags libc
-          lib_ext obj_ext osname osvers ranlib sitelibexp sitearchexp so
-          exe_ext full_ar
-         );
+        qw(
+           ar cc cccdlflags ccdlflags dlext dlsrc ld lddlflags ldflags libc
+           lib_ext obj_ext osname osvers ranlib sitelibexp sitearchexp so
+           exe_ext full_ar
+          );
 
     foreach my $item (@attrib_help){
-       $Recognized_Att_Keys{$item} = 1;
+        $Recognized_Att_Keys{$item} = 1;
     }
     foreach my $item (@Get_from_Config) {
-       $Recognized_Att_Keys{uc $item} = $Config{$item};
-       print "Attribute '\U$item\E' => '$Config{$item}'\n"
-           if ($Verbose >= 2);
+        $Recognized_Att_Keys{uc $item} = $Config{$item};
+        print "Attribute '\U$item\E' => '$Config{$item}'\n"
+            if ($Verbose >= 2);
     }
 
     #
@@ -279,18 +210,15 @@ sub full_setup {
     # us (the parent) for the values and will prepend "..", so that
     # all files to be installed end up below OUR ./blib
     #
-    %Prepend_dot_dot = 
-       qw(
-
-          INST_BIN 1 INST_EXE 1 INST_LIB 1 INST_ARCHLIB 1 INST_SCRIPT 1
-          MAP_TARGET 1 INST_HTMLLIBDIR 1 INST_HTMLSCRIPTDIR 1 
-          INST_MAN1DIR 1 INST_MAN3DIR 1 PERL_SRC 1 PERL 1 FULLPERL 1
-
-         );
+    @Prepend_dot_dot = qw(
+           INST_BIN INST_EXE INST_LIB INST_ARCHLIB INST_SCRIPT
+           MAP_TARGET INST_MAN1DIR INST_MAN3DIR PERL_SRC
+           PERL FULLPERL
+    );
 
     my @keep = qw/
-       NEEDS_LINKING HAS_LINK_CODE
-       /;
+        NEEDS_LINKING HAS_LINK_CODE
+        /;
     @Keep_after_flush{@keep} = (1) x @keep;
 }
 
@@ -314,24 +242,24 @@ The MakeMaker team
 END
 }
 
-sub ExtUtils::MakeMaker::new {
+sub new {
     my($class,$self) = @_;
     my($key);
 
     if ("@ARGV" =~ /\bPREREQ_PRINT\b/) {
-       require Data::Dumper;
+        require Data::Dumper;
         print Data::Dumper->Dump([$self->{PREREQ_PM}], [qw(PREREQ_PM)]);
-   }
+    }
 
     # PRINT_PREREQ is RedHatism.
     if ("@ARGV" =~ /\bPRINT_PREREQ\b/) {
-       print join(" ", map { "perl($_)>=$self->{PREREQ_PM}->{$_} " } sort keys %{$self->{PREREQ_PM}}), "\n";
-       exit 0;
+        print join(" ", map { "perl($_)>=$self->{PREREQ_PM}->{$_} " } sort keys %{$self->{PREREQ_PM}}), "\n";
+        exit 0;
    }
 
     print STDOUT "MakeMaker (v$VERSION)\n" if $Verbose;
     if (-f "MANIFEST" && ! -f "Makefile"){
-       check_manifest();
+        check_manifest();
     }
 
     $self = {} unless (defined $self);
@@ -343,99 +271,91 @@ sub ExtUtils::MakeMaker::new {
 
     my(%unsatisfied) = ();
     foreach my $prereq (sort keys %{$self->{PREREQ_PM}}) {
-       eval "require $prereq";
-
-       if ($@) {
-           warn "Warning: prerequisite $prereq $self->{PREREQ_PM}->{$prereq} not found.\n" unless $self->{PREREQ_FATAL};
-           $unsatisfied{$prereq} = 'not installed';
-       } elsif ($prereq->VERSION < $self->{PREREQ_PM}->{$prereq} ){
-           warn "Warning: prerequisite $prereq $self->{PREREQ_PM}->{$prereq} not found. We have "
-               . ($prereq->VERSION || 'unknown version') unless $self->{PREREQ_FATAL};
-           $unsatisfied{$prereq} = $self->{PREREQ_PM}->{$prereq} ? $self->{PREREQ_PM}->{$prereq} : 'unknown version' ;
-       }
+        eval "require $prereq";
+
+        if ($@) {
+            warn sprintf "Warning: prerequisite %s %s not found.\n", 
+              $prereq, $self->{PREREQ_PM}{$prereq} 
+                   unless $self->{PREREQ_FATAL};
+            $unsatisfied{$prereq} = 'not installed';
+        } elsif ($prereq->VERSION < $self->{PREREQ_PM}->{$prereq} ){
+            warn "Warning: prerequisite %s %s not found. We have %s.\n",
+              $prereq, $self->{PREREQ_PM}{$prereq}, 
+                ($prereq->VERSION || 'unknown version') 
+                  unless $self->{PREREQ_FATAL};
+            $unsatisfied{$prereq} = $self->{PREREQ_PM}->{$prereq} ? 
+              $self->{PREREQ_PM}->{$prereq} : 'unknown version' ;
+        }
     }
     if (%unsatisfied && $self->{PREREQ_FATAL}){
-#        unless (defined $ExtUtils::MakeMaker::useCPAN) {
-       my $failedprereqs = join ', ', map {"$_ $unsatisfied{$_}"} keys %unsatisfied;
-       die qq{MakeMaker FATAL: prerequisites not found ($failedprereqs)
-                Please install these modules first and rerun 'perl Makefile.PL'.\n};
-#            if ($ExtUtils::MakeMaker::hasCPAN) {
-#                $ExtUtils::MakeMaker::useCPAN = prompt(qq{Should I try to use the CPAN module to fetch them for you?},"yes");
-#            } else {
-#                print qq{Hint: You may want to install the CPAN module to autofetch the needed modules\n};
-#                $ExtUtils::MakeMaker::useCPAN=0;
-#            }
-#        }
-#        if ($ExtUtils::MakeMaker::useCPAN) {
-#            require CPAN;
-#            CPAN->import(@unsatisfied);
-#        } else {
-#            die qq{prerequisites not found (@unsatisfied)};
-#        }
-#      warn qq{WARNING: prerequisites not found (@unsatisfied)};
+        my $failedprereqs = join ', ', map {"$_ $unsatisfied{$_}"} 
+                            keys %unsatisfied;
+        die qq{MakeMaker FATAL: prerequisites not found ($failedprereqs)\n
+               Please install these modules first and rerun 'perl Makefile.PL'.\n};
     }
 
     if (defined $self->{CONFIGURE}) {
-       if (ref $self->{CONFIGURE} eq 'CODE') {
-           %configure_att = %{&{$self->{CONFIGURE}}};
-           $self = { %$self, %configure_att };
-       } else {
-           Carp::croak "Attribute 'CONFIGURE' to WriteMakefile() not a code reference\n";
-       }
+        if (ref $self->{CONFIGURE} eq 'CODE') {
+            %configure_att = %{&{$self->{CONFIGURE}}};
+            $self = { %$self, %configure_att };
+        } else {
+            Carp::croak "Attribute 'CONFIGURE' to WriteMakefile() not a code reference\n";
+        }
     }
 
     # This is for old Makefiles written pre 5.00, will go away
     if ( Carp::longmess("") =~ /runsubdirpl/s ){
-       Carp::carp("WARNING: Please rerun 'perl Makefile.PL' to regenerate your Makefiles\n");
+        Carp::carp("WARNING: Please rerun 'perl Makefile.PL' to regenerate your Makefiles\n");
     }
 
     my $newclass = ++$PACKNAME;
-    local @Parent = @Parent;   # Protect against non-local exits
+    local @Parent = @Parent;    # Protect against non-local exits
     {
-       no strict 'refs';
-       print "Blessing Object into class [$newclass]\n" if $Verbose>=2;
-       mv_all_methods("MY",$newclass);
-       bless $self, $newclass;
-       push @Parent, $self;
-       @{"$newclass\:\:ISA"} = 'MM';
+        no strict 'refs';
+        print "Blessing Object into class [$newclass]\n" if $Verbose>=2;
+        mv_all_methods("MY",$newclass);
+        bless $self, $newclass;
+        push @Parent, $self;
+        require ExtUtils::MY;
+        @{"$newclass\:\:ISA"} = 'MM';
     }
 
     if (defined $Parent[-2]){
-       $self->{PARENT} = $Parent[-2];
-       my $key;
-       for $key (keys %Prepend_dot_dot) {
-           next unless defined $self->{PARENT}{$key};
-           $self->{$key} = $self->{PARENT}{$key};
-           unless ($^O eq 'VMS' && $key =~ /PERL$/) {
-               $self->{$key} = $self->catdir("..",$self->{$key})
-                   unless $self->file_name_is_absolute($self->{$key});
-           } else {
-               # PERL or FULLPERL will be a command verb or even a command with 
-               # an argument instead of a full file specification under VMS.  So, 
-               # don't turn the command into a filespec, but do add a level to the 
-               # path of the argument if not already absolute.
-
-               my @cmd = split /\s+/, $self->{$key};
-               $cmd[1] = $self->catfile('[-]',$cmd[1])
-                   unless (scalar(@cmd) < 2 || $self->file_name_is_absolute($cmd[1]));
-               $self->{$key} = join(' ', @cmd);
-           }
-       }
-       if ($self->{PARENT}) {
-           $self->{PARENT}->{CHILDREN}->{$newclass} = $self;
-           foreach my $opt (qw(POLLUTE PERL_CORE)) {
-               if (exists $self->{PARENT}->{$opt}
-                   and not exists $self->{$opt})
-                   {
-                       # inherit, but only if already unspecified
-                       $self->{$opt} = $self->{PARENT}->{$opt};
-                   }
-           }
-       }
-       my @fm = grep /^FIRST_MAKEFILE=/, @ARGV;
-       parse_args($self,@fm) if @fm;
+        $self->{PARENT} = $Parent[-2];
+        my $key;
+        for $key (@Prepend_dot_dot) {
+            next unless defined $self->{PARENT}{$key};
+            $self->{$key} = $self->{PARENT}{$key};
+            unless ($^O eq 'VMS' && $key =~ /PERL$/) {
+                $self->{$key} = $self->catdir("..",$self->{$key})
+                  unless $self->file_name_is_absolute($self->{$key});
+            } else {
+                # PERL or FULLPERL will be a command verb or even a
+                # command with an argument instead of a full file
+                # specification under VMS.  So, don't turn the command
+                # into a filespec, but do add a level to the path of
+                # the argument if not already absolute.
+                my @cmd = split /\s+/, $self->{$key};
+                $cmd[1] = $self->catfile('[-]',$cmd[1])
+                  unless (@cmd < 2) || $self->file_name_is_absolute($cmd[1]);
+                $self->{$key} = join(' ', @cmd);
+            }
+        }
+        if ($self->{PARENT}) {
+            $self->{PARENT}->{CHILDREN}->{$newclass} = $self;
+            foreach my $opt (qw(POLLUTE PERL_CORE)) {
+                if (exists $self->{PARENT}->{$opt}
+                    and not exists $self->{$opt})
+                    {
+                        # inherit, but only if already unspecified
+                        $self->{$opt} = $self->{PARENT}->{$opt};
+                    }
+            }
+        }
+        my @fm = grep /^FIRST_MAKEFILE=/, @ARGV;
+        parse_args($self,@fm) if @fm;
     } else {
-       parse_args($self,split(' ', $ENV{PERL_MM_OPT} || ''),@ARGV);
+        parse_args($self,split(' ', $ENV{PERL_MM_OPT} || ''),@ARGV);
     }
 
     $self->{NAME} ||= $self->guess_name;
@@ -445,27 +365,28 @@ sub ExtUtils::MakeMaker::new {
     $self->init_main();
 
     if (! $self->{PERL_SRC} ) {
-       my($pthinks) = $self->canonpath($INC{'Config.pm'});
-       my($cthinks) = $self->catfile($Config{'archlibexp'},'Config.pm');
-       $pthinks = VMS::Filespec::vmsify($pthinks) if $Is_VMS;
-       if ($pthinks ne $cthinks &&
-           !($Is_Win32 and lc($pthinks) eq lc($cthinks))) {
+        require VMS::Filespec if $Is_VMS;
+        my($pthinks) = $self->canonpath($INC{'Config.pm'});
+        my($cthinks) = $self->catfile($Config{'archlibexp'},'Config.pm');
+        $pthinks = VMS::Filespec::vmsify($pthinks) if $Is_VMS;
+        if ($pthinks ne $cthinks &&
+            !($Is_Win32 and lc($pthinks) eq lc($cthinks))) {
             print "Have $pthinks expected $cthinks\n";
-           if ($Is_Win32) {
-               $pthinks =~ s![/\\]Config\.pm$!!i; $pthinks =~ s!.*[/\\]!!;
-           }
-           else {
-               $pthinks =~ s!/Config\.pm$!!; $pthinks =~ s!.*/!!;
-           }
-           print STDOUT <<END unless $self->{UNINSTALLED_PERL};
-Your perl and your Config.pm seem to have different ideas about the architecture
-they are running on.
+            if ($Is_Win32) {
+                $pthinks =~ s![/\\]Config\.pm$!!i; $pthinks =~ s!.*[/\\]!!;
+            }
+            else {
+                $pthinks =~ s!/Config\.pm$!!; $pthinks =~ s!.*/!!;
+            }
+            print STDOUT <<END unless $self->{UNINSTALLED_PERL};
+Your perl and your Config.pm seem to have different ideas about the 
+architecture they are running on.
 Perl thinks: [$pthinks]
 Config says: [$Config{archname}]
-This may or may not cause problems. Please check your installation of perl if you
-have problems building this extension.
+This may or may not cause problems. Please check your installation of perl 
+if you have problems building this extension.
 END
-       }
+        }
     }
 
     $self->init_dirscan();
@@ -481,7 +402,7 @@ END
 # $VERSION (Revision: $Revision) from the contents of
 # Makefile.PL. Don't edit this file, edit Makefile.PL instead.
 #
-#      ANY CHANGES MADE HERE WILL BE LOST!
+#       ANY CHANGES MADE HERE WILL BE LOST!
 #
 #   MakeMaker ARGV: $argv
 #
@@ -489,10 +410,10 @@ END
 END
 
     foreach my $key (sort keys %initial_att){
-       my($v) = neatvalue($initial_att{$key});
-       $v =~ s/(CODE|HASH|ARRAY|SCALAR)\([\dxa-f]+\)/$1\(...\)/;
-       $v =~ tr/\n/ /s;
-       push @{$self->{RESULT}}, "#     $key => $v";
+        my($v) = neatvalue($initial_att{$key});
+        $v =~ s/(CODE|HASH|ARRAY|SCALAR)\([\dxa-f]+\)/$1\(...\)/;
+        $v =~ tr/\n/ /s;
+        push @{$self->{RESULT}}, "#     $key => $v";
     }
     undef %initial_att;        # free memory
 
@@ -519,33 +440,33 @@ END
     # turn the SKIP array into a SKIPHASH hash
     my (%skip,$skip);
     for $skip (@{$self->{SKIP} || []}) {
-       $self->{SKIPHASH}{$skip} = 1;
+        $self->{SKIPHASH}{$skip} = 1;
     }
     delete $self->{SKIP}; # free memory
 
     if ($self->{PARENT}) {
-       for (qw/install dist dist_basics dist_core dist_dir dist_test dist_ci/) {
-           $self->{SKIPHASH}{$_} = 1;
-       }
+        for (qw/install dist dist_basics dist_core dist_dir dist_test dist_ci/) {
+            $self->{SKIPHASH}{$_} = 1;
+        }
     }
 
     # We run all the subdirectories now. They don't have much to query
     # from the parent, but the parent has to query them: if they need linking!
     unless ($self->{NORECURS}) {
-       $self->eval_in_subdirs if @{$self->{DIR}};
+        $self->eval_in_subdirs if @{$self->{DIR}};
     }
 
     foreach my $section ( @MM_Sections ){
-       print "Processing Makefile '$section' section\n" if ($Verbose >= 2);
-       my($skipit) = $self->skipcheck($section);
-       if ($skipit){
-           push @{$self->{RESULT}}, "\n# --- MakeMaker $section section $skipit.";
-       } else {
-           my(%a) = %{$self->{$section} || {}};
-           push @{$self->{RESULT}}, "\n# --- MakeMaker $section section:";
-           push @{$self->{RESULT}}, "# " . join ", ", %a if $Verbose && %a;
-           push @{$self->{RESULT}}, $self->nicetext($self->$section( %a ));
-       }
+        print "Processing Makefile '$section' section\n" if ($Verbose >= 2);
+        my($skipit) = $self->skipcheck($section);
+        if ($skipit){
+            push @{$self->{RESULT}}, "\n# --- MakeMaker $section section $skipit.";
+        } else {
+            my(%a) = %{$self->{$section} || {}};
+            push @{$self->{RESULT}}, "\n# --- MakeMaker $section section:";
+            push @{$self->{RESULT}}, "# " . join ", ", %a if $Verbose && %a;
+            push @{$self->{RESULT}}, $self->nicetext($self->$section( %a ));
+        }
     }
 
     push @{$self->{RESULT}}, "\n# End.";
@@ -589,79 +510,79 @@ sub check_manifest {
     $ExtUtils::Manifest::Quiet = $ExtUtils::Manifest::Quiet = 1;
     my(@missed) = ExtUtils::Manifest::manicheck();
     if (@missed) {
-       print STDOUT "Warning: the following files are missing in your kit:\n";
-       print "\t", join "\n\t", @missed;
-       print STDOUT "\n";
-       print STDOUT "Please inform the author.\n";
+        print STDOUT "Warning: the following files are missing in your kit:\n";
+        print "\t", join "\n\t", @missed;
+        print STDOUT "\n";
+        print STDOUT "Please inform the author.\n";
     } else {
-       print STDOUT "Looks good\n";
+        print STDOUT "Looks good\n";
     }
 }
 
 sub parse_args{
     my($self, @args) = @_;
     foreach (@args) {
-       unless (m/(.*?)=(.*)/) {
-           help(),exit 1 if m/^help$/;
-           ++$Verbose if m/^verb/;
-           next;
-       }
-       my($name, $value) = ($1, $2);
-       if ($value =~ m/^~(\w+)?/) { # tilde with optional username
-           $value =~ s [^~(\w*)]
-               [$1 ?
-                ((getpwnam($1))[7] || "~$1") :
-                (getpwuid($>))[7]
-                ]ex;
-       }
-       $self->{uc($name)} = $value;
+        unless (m/(.*?)=(.*)/) {
+            help(),exit 1 if m/^help$/;
+            ++$Verbose if m/^verb/;
+            next;
+        }
+        my($name, $value) = ($1, $2);
+        if ($value =~ m/^~(\w+)?/) { # tilde with optional username
+            $value =~ s [^~(\w*)]
+                [$1 ?
+                 ((getpwnam($1))[7] || "~$1") :
+                 (getpwuid($>))[7]
+                 ]ex;
+        }
+        $self->{uc($name)} = $value;
     }
 
     # catch old-style 'potential_libs' and inform user how to 'upgrade'
     if (defined $self->{potential_libs}){
-       my($msg)="'potential_libs' => '$self->{potential_libs}' should be";
-       if ($self->{potential_libs}){
-           print STDOUT "$msg changed to:\n\t'LIBS' => ['$self->{potential_libs}']\n";
-       } else {
-           print STDOUT "$msg deleted.\n";
-       }
-       $self->{LIBS} = [$self->{potential_libs}];
-       delete $self->{potential_libs};
+        my($msg)="'potential_libs' => '$self->{potential_libs}' should be";
+        if ($self->{potential_libs}){
+            print STDOUT "$msg changed to:\n\t'LIBS' => ['$self->{potential_libs}']\n";
+        } else {
+            print STDOUT "$msg deleted.\n";
+        }
+        $self->{LIBS} = [$self->{potential_libs}];
+        delete $self->{potential_libs};
     }
     # catch old-style 'ARMAYBE' and inform user how to 'upgrade'
     if (defined $self->{ARMAYBE}){
-       my($armaybe) = $self->{ARMAYBE};
-       print STDOUT "ARMAYBE => '$armaybe' should be changed to:\n",
-                       "\t'dynamic_lib' => {ARMAYBE => '$armaybe'}\n";
-       my(%dl) = %{$self->{dynamic_lib} || {}};
-       $self->{dynamic_lib} = { %dl, ARMAYBE => $armaybe};
-       delete $self->{ARMAYBE};
+        my($armaybe) = $self->{ARMAYBE};
+        print STDOUT "ARMAYBE => '$armaybe' should be changed to:\n",
+                        "\t'dynamic_lib' => {ARMAYBE => '$armaybe'}\n";
+        my(%dl) = %{$self->{dynamic_lib} || {}};
+        $self->{dynamic_lib} = { %dl, ARMAYBE => $armaybe};
+        delete $self->{ARMAYBE};
     }
     if (defined $self->{LDTARGET}){
-       print STDOUT "LDTARGET should be changed to LDFROM\n";
-       $self->{LDFROM} = $self->{LDTARGET};
-       delete $self->{LDTARGET};
+        print STDOUT "LDTARGET should be changed to LDFROM\n";
+        $self->{LDFROM} = $self->{LDTARGET};
+        delete $self->{LDTARGET};
     }
     # Turn a DIR argument on the command line into an array
     if (defined $self->{DIR} && ref \$self->{DIR} eq 'SCALAR') {
-       # So they can choose from the command line, which extensions they want
-       # the grep enables them to have some colons too much in case they
-       # have to build a list with the shell
-       $self->{DIR} = [grep $_, split ":", $self->{DIR}];
+        # So they can choose from the command line, which extensions they want
+        # the grep enables them to have some colons too much in case they
+        # have to build a list with the shell
+        $self->{DIR} = [grep $_, split ":", $self->{DIR}];
     }
     # Turn a INCLUDE_EXT argument on the command line into an array
     if (defined $self->{INCLUDE_EXT} && ref \$self->{INCLUDE_EXT} eq 'SCALAR') {
-       $self->{INCLUDE_EXT} = [grep $_, split '\s+', $self->{INCLUDE_EXT}];
+        $self->{INCLUDE_EXT} = [grep $_, split '\s+', $self->{INCLUDE_EXT}];
     }
     # Turn a EXCLUDE_EXT argument on the command line into an array
     if (defined $self->{EXCLUDE_EXT} && ref \$self->{EXCLUDE_EXT} eq 'SCALAR') {
-       $self->{EXCLUDE_EXT} = [grep $_, split '\s+', $self->{EXCLUDE_EXT}];
+        $self->{EXCLUDE_EXT} = [grep $_, split '\s+', $self->{EXCLUDE_EXT}];
     }
 
     foreach my $mmkey (sort keys %$self){
-       print STDOUT "  $mmkey => ", neatvalue($self->{$mmkey}), "\n" if $Verbose;
-       print STDOUT "'$mmkey' is not a known MakeMaker parameter name.\n"
-           unless exists $Recognized_Att_Keys{$mmkey};
+        print STDOUT "  $mmkey => ", neatvalue($self->{$mmkey}), "\n" if $Verbose;
+        print STDOUT "'$mmkey' is not a known MakeMaker parameter name.\n"
+            unless exists $Recognized_Att_Keys{$mmkey};
     }
     $| = 1 if $Verbose;
 }
@@ -680,23 +601,28 @@ sub check_hints {
 
     # Also try without trailing minor version numbers.
     while (1) {
-       last if -f "hints/$hint.pl";      # found
+        last if -f "hints/$hint.pl";      # found
     } continue {
-       last unless $hint =~ s/_[^_]*$//; # nothing to cut off
+        last unless $hint =~ s/_[^_]*$//; # nothing to cut off
     }
     my $hint_file = "hints/$hint.pl";
 
     return unless -f $hint_file;    # really there
 
-    # execute the hintsfile:
+    _run_hintfile($self, $hint_file);
+}
+
+sub _run_hintfile {
+    our $self;
+    local($self) = shift;       # make $self available to the hint file.
+    my($hint_file) = shift;
+
+    local $@;
     print STDERR "Processing hints file $hint_file\n";
-    {
-        local *HINT;
-        open(HINT, $hint_file) || die "Can't open $hint_file: $!";
-        eval join '', <HINT>;
-        close HINT;
+    my $ret = do "./$hint_file";
+    unless( defined $ret ) {
+        print STDERR $@ if $@;
     }
-    print STDERR $@ if $@;
 }
 
 sub mv_all_methods {
@@ -711,29 +637,29 @@ sub mv_all_methods {
 
     foreach my $method (@Overridable) {
 
-       # We cannot say "next" here. Nick might call MY->makeaperl
-       # which isn't defined right now
+        # We cannot say "next" here. Nick might call MY->makeaperl
+        # which isn't defined right now
+
+        # Above statement was written at 4.23 time when Tk-b8 was
+        # around. As Tk-b9 only builds with 5.002something and MM 5 is
+        # standard, we try to enable the next line again. It was
+        # commented out until MM 5.23
+
+        next unless defined &{"${from}::$method"};
 
-       # Above statement was written at 4.23 time when Tk-b8 was
-       # around. As Tk-b9 only builds with 5.002something and MM 5 is
-       # standard, we try to enable the next line again. It was
-       # commented out until MM 5.23
+        *{"${to}::$method"} = \&{"${from}::$method"};
 
-       next unless defined &{"${from}::$method"};
+        # delete would do, if we were sure, nobody ever called
+        # MY->makeaperl directly
 
-       *{"${to}::$method"} = \&{"${from}::$method"};
+        # delete $symtab->{$method};
 
-       # delete would do, if we were sure, nobody ever called
-       # MY->makeaperl directly
-       
-       # delete $symtab->{$method};
-       
-       # If we delete a method, then it will be undefined and cannot
-       # be called.  But as long as we have Makefile.PLs that rely on
-       # %MY:: being intact, we have to fill the hole with an
-       # inheriting method:
+        # If we delete a method, then it will be undefined and cannot
+        # be called.  But as long as we have Makefile.PLs that rely on
+        # %MY:: being intact, we have to fill the hole with an
+        # inheriting method:
 
-       eval "package MY; sub $method { shift->SUPER::$method(\@_); }";
+        eval "package MY; sub $method { shift->SUPER::$method(\@_); }";
     }
 
     # We have to clean out %INC also, because the current directory is
@@ -750,8 +676,8 @@ sub mv_all_methods {
 
 #    my $inc;
 #    foreach $inc (keys %INC) {
-#      #warn "***$inc*** deleted";
-#      delete $INC{$inc};
+#       #warn "***$inc*** deleted";
+#       delete $INC{$inc};
 #    }
 }
 
@@ -759,21 +685,21 @@ sub skipcheck {
     my($self) = shift;
     my($section) = @_;
     if ($section eq 'dynamic') {
-       print STDOUT "Warning (non-fatal): Target 'dynamic' depends on targets ",
-       "in skipped section 'dynamic_bs'\n"
+        print STDOUT "Warning (non-fatal): Target 'dynamic' depends on targets ",
+        "in skipped section 'dynamic_bs'\n"
             if $self->{SKIPHASH}{dynamic_bs} && $Verbose;
         print STDOUT "Warning (non-fatal): Target 'dynamic' depends on targets ",
-       "in skipped section 'dynamic_lib'\n"
+        "in skipped section 'dynamic_lib'\n"
             if $self->{SKIPHASH}{dynamic_lib} && $Verbose;
     }
     if ($section eq 'dynamic_lib') {
         print STDOUT "Warning (non-fatal): Target '\$(INST_DYNAMIC)' depends on ",
-       "targets in skipped section 'dynamic_bs'\n"
+        "targets in skipped section 'dynamic_bs'\n"
             if $self->{SKIPHASH}{dynamic_bs} && $Verbose;
     }
     if ($section eq 'static') {
         print STDOUT "Warning (non-fatal): Target 'static' depends on targets ",
-       "in skipped section 'static_lib'\n"
+        "in skipped section 'static_lib'\n"
             if $self->{SKIPHASH}{static_lib} && $Verbose;
     }
     return 'skipped' if $self->{SKIPHASH}{$section};
@@ -793,8 +719,8 @@ sub flush {
     open(FH,">MakeMaker.tmp") or die "Unable to open MakeMaker.tmp: $!";
 
     for $chunk (@{$self->{RESULT}}) {
-#      print $fh "$chunk\n";
-       print FH "$chunk\n";
+#       print $fh "$chunk\n";
+        print FH "$chunk\n";
     }
 
 #    $fh->close;
@@ -804,9 +730,9 @@ sub flush {
     chmod 0644, $finalname unless $Is_VMS;
 
     if ($self->{PARENT}) {
-       foreach (keys %$self) { # safe memory
-           delete $self->{$_} unless $Keep_after_flush{$_};
-       }
+        foreach (keys %$self) { # safe memory
+            delete $self->{$_} unless $Keep_after_flush{$_};
+        }
     }
 
     system("$Config::Config{eunicefix} $finalname") unless $Config::Config{eunicefix} eq ":";
@@ -838,20 +764,20 @@ sub neatvalue {
     my($t) = ref $v;
     return "q[$v]" unless $t;
     if ($t eq 'ARRAY') {
-       my(@m, @neat);
-       push @m, "[";
-       foreach my $elem (@$v) {
-           push @neat, "q[$elem]";
-       }
-       push @m, join ", ", @neat;
-       push @m, "]";
-       return join "", @m;
+        my(@m, @neat);
+        push @m, "[";
+        foreach my $elem (@$v) {
+            push @neat, "q[$elem]";
+        }
+        push @m, join ", ", @neat;
+        push @m, "]";
+        return join "", @m;
     }
     return "$v" unless $t eq 'HASH';
     my(@m, $key, $val);
     while (($key,$val) = each %$v){
-       last unless defined $key; # cautious programming in case (undef,undef) is true
-       push(@m,"$key=>".neatvalue($val)) ;
+        last unless defined $key; # cautious programming in case (undef,undef) is true
+        push(@m,"$key=>".neatvalue($val)) ;
     }
     return "{ ".join(', ',@m)." }";
 }
@@ -860,19 +786,18 @@ sub selfdocument {
     my($self) = @_;
     my(@m);
     if ($Verbose){
-       push @m, "\n# Full list of MakeMaker attribute values:";
-       foreach my $key (sort keys %$self){
-           next if $key eq 'RESULT' || $key =~ /^[A-Z][a-z]/;
-           my($v) = neatvalue($self->{$key});
-           $v =~ s/(CODE|HASH|ARRAY|SCALAR)\([\dxa-f]+\)/$1\(...\)/;
-           $v =~ tr/\n/ /s;
-           push @m, "# $key => $v";
-       }
+        push @m, "\n# Full list of MakeMaker attribute values:";
+        foreach my $key (sort keys %$self){
+            next if $key eq 'RESULT' || $key =~ /^[A-Z][a-z]/;
+            my($v) = neatvalue($self->{$key});
+            $v =~ s/(CODE|HASH|ARRAY|SCALAR)\([\dxa-f]+\)/$1\(...\)/;
+            $v =~ tr/\n/ /s;
+            push @m, "# $key => $v";
+        }
     }
     join "\n", @m;
 }
 
-package ExtUtils::MakeMaker;
 1;
 
 __END__
@@ -982,26 +907,23 @@ want to specify some other option, set C<TESTDB_SW> variable:
 =head2 make install
 
 make alone puts all relevant files into directories that are named by
-the macros INST_LIB, INST_ARCHLIB, INST_SCRIPT, INST_HTMLLIBDIR,
-INST_HTMLSCRIPTDIR, INST_MAN1DIR, and INST_MAN3DIR.  All these default
-to something below ./blib if you are I<not> building below the perl
-source directory. If you I<are> building below the perl source,
-INST_LIB and INST_ARCHLIB default to ../../lib, and INST_SCRIPT is not
-defined.
+the macros INST_LIB, INST_ARCHLIB, INST_SCRIPT, INST_MAN1DIR and
+INST_MAN3DIR.  All these default to something below ./blib if you are
+I<not> building below the perl source directory. If you I<are>
+building below the perl source, INST_LIB and INST_ARCHLIB default to
+../../lib, and INST_SCRIPT is not defined.
 
 The I<install> target of the generated Makefile copies the files found
 below each of the INST_* directories to their INSTALL*
 counterparts. Which counterparts are chosen depends on the setting of
 INSTALLDIRS according to the following table:
 
-                                INSTALLDIRS set to
-                                     perl                site
+                                 INSTALLDIRS set to
+                              perl                site
 
-    INST_ARCHLIB       INSTALLARCHLIB        INSTALLSITEARCH
-    INST_LIB           INSTALLPRIVLIB        INSTALLSITELIB
-    INST_HTMLLIBDIR    INSTALLHTMLPRIVLIBDIR INSTALLHTMLSITELIBDIR
-    INST_HTMLSCRIPTDIR            INSTALLHTMLSCRIPTDIR
-    INST_BIN                     INSTALLBIN
+    INST_ARCHLIB        INSTALLARCHLIB        INSTALLSITEARCH
+    INST_LIB            INSTALLPRIVLIB        INSTALLSITELIB
+    INST_BIN                      INSTALLBIN
     INST_SCRIPT                   INSTALLSCRIPT
     INST_MAN1DIR                  INSTALLMAN1DIR
     INST_MAN3DIR                  INSTALLMAN3DIR
@@ -1025,24 +947,25 @@ PREFIX and LIB can be used to set several INSTALL* attributes in one
 go. The quickest way to install a module in a non-standard place might
 be
 
-    perl Makefile.PL LIB=~/lib
+    perl Makefile.PL PREFIX=~
 
-This will install the module's architecture-independent files into
-~/lib, the architecture-dependent files into ~/lib/$archname.
+This will install all files in the module under your home directory,
+with man pages and libraries going into an appropriate place (usually
+~/man and ~/lib).
 
 Another way to specify many INSTALL directories with a single
-parameter is PREFIX.
+parameter is LIB.
 
-    perl Makefile.PL PREFIX=~
+    perl Makefile.PL LIB=~/lib
 
-This will replace the string specified by C<$Config{prefix}> in all
-C<$Config{install*}> values.
+This will install the module's architecture-independent files into
+~/lib, the architecture-dependent files into ~/lib/$archname.
 
 Note, that in both cases the tilde expansion is done by MakeMaker, not
 by perl by default, nor by make.
 
-Conflicts between parameters LIB,
-PREFIX and the various INSTALL* arguments are resolved so that:
+Conflicts between parameters LIB, PREFIX and the various INSTALL*
+arguments are resolved so that:
 
 =over 4
 
@@ -1059,10 +982,10 @@ set (but are set to still start with C<$Config{prefix}>).
 
 =back
 
-If the user has superuser privileges, and is not working on AFS
-or relatives, then the defaults for
-INSTALLPRIVLIB, INSTALLARCHLIB, INSTALLSCRIPT, etc. will be appropriate,
-and this incantation will be the best:
+If the user has superuser privileges, and is not working on AFS or
+relatives, then the defaults for INSTALLPRIVLIB, INSTALLARCHLIB,
+INSTALLSCRIPT, etc. will be appropriate, and this incantation will be
+the best:
 
     perl Makefile.PL; make; make test
     make install
@@ -1078,7 +1001,7 @@ probably have changed since perl itself has been installed. They will
 have to do this by calling
 
     perl Makefile.PL INSTALLSITELIB=/afs/here/today \
-       INSTALLSCRIPT=/afs/there/now INSTALLMAN3DIR=/afs/for/manpages
+        INSTALLSCRIPT=/afs/there/now INSTALLMAN3DIR=/afs/for/manpages
     make
 
 Be careful to repeat this procedure every time you recompile an
@@ -1228,7 +1151,7 @@ Used when creating PPD files for binary packages.  It can be set to a
 full or relative path or URL to the binary archive for a particular
 architecture.  For example:
 
-       perl Makefile.PL BINARY_LOCATION=x86/Agent.tar.gz
+        perl Makefile.PL BINARY_LOCATION=x86/Agent.tar.gz
 
 builds a PPD package that references a binary of the C<Agent> package,
 located in the C<x86> directory relative to the PPD itself.
@@ -1333,7 +1256,15 @@ that will be produced for the MAP_TARGET.
 
 =item FULLPERL
 
-Perl binary able to run this extension.
+Perl binary able to run this extension, load XS modules, etc...
+
+=item FULLPERLRUN
+
+Like PERLRUN, except it uses FULLPERL.
+
+=item FULLPERLRUNINST
+
+Like PERLRUNINST, except it uses FULLPERL.
 
 =item FUNCLIST
 
@@ -1346,20 +1277,6 @@ names are passed through unaltered to the linker options file.
 
 Ref to array of *.h file names. Similar to C.
 
-=item HTMLLIBPODS
-
-Hashref of .pm and .pod files.  MakeMaker will default this to all
- .pod and any .pm files that include POD directives.  The files listed
-here will be converted to HTML format and installed as was requested
-at Configure time.
-
-=item HTMLSCRIPTPODS
-
-Hashref of pod-containing files.  MakeMaker will default this to all
-EXE_FILES files that include POD directives.  The files listed
-here will be converted to HTML format and installed as was requested
-at Configure time.
-
 =item IMPORTS
 
 This attribute is used to specify names to be imported into the
@@ -1400,22 +1317,6 @@ choose: installprivlib and installarchlib versus installsitelib and
 installsitearch. The first pair is chosen with INSTALLDIRS=perl, the
 second with INSTALLDIRS=site. Default is site.
 
-=item INSTALLHTMLPRIVLIBDIR
-
-This directory gets the HTML pages at 'make install' time. Defaults to
-$Config{installhtmlprivlibdir}.
-
-=item INSTALLHTMLSCRIPTDIR
-
-This directory gets the HTML pages at 'make install' time. Defaults to
-$Config{installhtmlscriptdir}.
-
-=item INSTALLHTMLSITELIBDIR
-
-This directory gets the HTML pages at 'make install' time. Defaults to
-$Config{installhtmlsitelibdir}.
-
-
 =item INSTALLMAN1DIR
 
 This directory gets the man pages at 'make install' time. Defaults to
@@ -1460,14 +1361,6 @@ to INSTALLBIN during 'make install'
 Old name for INST_SCRIPT. Deprecated. Please use INST_SCRIPT if you
 need to use it.
 
-=item INST_HTMLLIBDIR
-
-Directory to hold the man pages in HTML format at 'make' time
-
-=item INST_HTMLSCRIPTDIR
-
-Directory to hold the man pages in HTML format at 'make' time
-
 =item INST_LIB
 
 Directory where we put library files of this extension while building
@@ -1497,11 +1390,10 @@ specify ld flags)
 =item LIB
 
 LIB should only be set at C<perl Makefile.PL> time but is allowed as a
-MakeMaker argument. It has the effect of
-setting both INSTALLPRIVLIB and INSTALLSITELIB to that value regardless any
-explicit setting of those arguments (or of PREFIX).  
-INSTALLARCHLIB and INSTALLSITEARCH are set to the corresponding 
-architecture subdirectory.
+MakeMaker argument. It has the effect of setting both INSTALLPRIVLIB
+and INSTALLSITELIB to that value regardless any explicit setting of
+those arguments (or of PREFIX).  INSTALLARCHLIB and INSTALLSITEARCH
+are set to the corresponding architecture subdirectory.
 
 =item LIBPERL_A
 
@@ -1673,15 +1565,15 @@ of memory allocations, etc.
 
 =item PERLRUN
 
-Use this instead of $(PERL) or $(FULLPERL) when you wish to run perl.
-It will set up extra necessary flags for you.
-  
+Use this instead of $(PERL) when you wish to run perl.  It will set up
+extra necessary flags for you.
+
 =item PERLRUNINST
-  
-Use this instead of $(PERL) or $(FULLPERL) when you wish to run
-perl to work with modules.  It will add things like -I$(INST_ARCH)
-and other necessary flags.
-  
+
+Use this instead of $(PERL) when you wish to run perl to work with
+modules.  It will add things like -I$(INST_ARCH) and other necessary
+flags so perl can see the modules you're about to install.
+
 =item PERL_SRC
 
 Directory containing the Perl source code (use of this should be
@@ -1778,12 +1670,14 @@ the installation of a package.
 
 =item PREFIX
 
-Can be used to set the three INSTALL* attributes in one go (except for
-probably INSTALLMAN1DIR, if it is not below PREFIX according to
-%Config).  They will have PREFIX as a common directory node and will
-branch from that node into lib/, lib/ARCHNAME or whatever Configure
-decided at the build time of your perl (unless you override one of
-them, of course).
+This overrides all the default install locations.  Man pages,
+libraries, scripts, etc...  MakeMaker will try to make an educated
+guess about where to place things under the new PREFIX based on your
+Config defaults.  Failing that, it will fall back to a structure
+which should be sensible for your platform.
+
+If you specify LIB or any INSTALL* variables they will not be effected
+by the PREFIX.
 
 =item PREREQ_PM
 
@@ -1834,7 +1728,9 @@ if you really need it.
 
 The set of -I's necessary to run a "make test".  Use as:
 $(PERL) $(TEST_LIBS) -e '...' for example.
-  
+
+The paths will be absolute.
+
 =item TYPEMAPS
 
 Ref to array of typemap file names.  Use this when the typemaps are
@@ -1865,10 +1761,10 @@ MakeMaker object. The following lines will be parsed o.k.:
 
     $VERSION = '1.00';
     *VERSION = \'1.01';
-    ( $VERSION ) = '$Revision: 1.4 $ ' =~ /\$Revision:\s+([^\s]+)/;
+    ( $VERSION ) = '$Revision: 1.23 $ ' =~ /\$Revision:\s+([^\s]+)/;
     $FOO::VERSION = '1.10';
     *FOO::VERSION = \'1.11';
-    our $VERSION = 1.2.3;      # new for perl5.6.0 
+    our $VERSION = 1.2.3;       # new for perl5.6.0 
 
 but these will fail:
 
@@ -1989,16 +1885,16 @@ Each subroutines returns the text it wishes to have written to
 the Makefile. To override a section of the Makefile you can
 either say:
 
-       sub MY::c_o { "new literal text" }
+        sub MY::c_o { "new literal text" }
 
 or you can edit the default by saying something like:
 
-       sub MY::c_o {
-           package MY; # so that "SUPER" works right
-           my $inherited = shift->SUPER::c_o(@_);
-           $inherited =~ s/old text/new text/;
-           $inherited;
-       }
+        sub MY::c_o {
+            package MY; # so that "SUPER" works right
+            my $inherited = shift->SUPER::c_o(@_);
+            $inherited =~ s/old text/new text/;
+            $inherited;
+        }
 
 If you are running experiments with embedding perl as a library into
 other applications, you might find MakeMaker is not sufficient. You'd
@@ -2015,9 +1911,9 @@ Here is a simple example of how to add a new target to the generated
 Makefile:
 
     sub MY::postamble {
-       '
+        '
     $(MYEXTLIB): sdbm/Makefile
-           cd sdbm && $(MAKE) all
+            cd sdbm && $(MAKE) all
     ';
     }
 
@@ -2077,7 +1973,7 @@ Copies all the files that are in the MANIFEST file to a newly created
 directory with the name C<$(DISTNAME)-$(VERSION)>. If that directory
 exists, it will be removed first.
 
-=item  make disttest
+=item   make disttest
 
 Makes a distdir first, and runs a C<perl Makefile.PL>, a make, and
 a make test in that directory.
@@ -2177,8 +2073,8 @@ always return the default without waiting for user input.
 
 =head1 SEE ALSO
 
-ExtUtils::MM_Unix, ExtUtils::Manifest, ExtUtils::testlib,
-ExtUtils::Install, ExtUtils::Embed
+ExtUtils::MM_Unix, ExtUtils::Manifest ExtUtils::Install,
+ExtUtils::Embed
 
 =head1 AUTHORS
 
@@ -2187,9 +2083,10 @@ Andy Dougherty <F<doughera@lafcol.lafayette.edu>>, Andreas KE<ouml>nig
 support by Charles Bailey <F<bailey@newman.upenn.edu>>.  OS/2 support
 by Ilya Zakharevich <F<ilya@math.ohio-state.edu>>.
 
-Contact the MakeMaker mailing list <F<makemaker@perl.org>> if you have
-any questions.
+Currently maintained by Michael G Schwern <F<schwern@pobox.com>>
+
+Send patches and ideas to <F<makemaker@perl.org>>.
 
-Send patches and bug reports to <F<perlbug@perl.org>>.
+Send bug reports via http://rt.cpan.org/.
 
 =cut