3900 illumos will not build against gcc compiled perl

          --- old/usr/src/cmd/perl/contrib/Sun/Solaris/Privilege/Makefile.PL
          +++ new/usr/src/cmd/perl/contrib/Sun/Solaris/Privilege/Makefile.PL
   1    1  #
   2    2  # Copyright (c) 2004, 2008, Oracle and/or its affiliates. All rights reserved.
   3    3  #
   4    4  
   5    5  #
   6    6  # Makefile.PL for ::Privilege
   7    7  #
   8    8  
   9      -require 5.8.4;
        9 +require 5.0010;
  10   10  use strict;
  11   11  use warnings;
  12   12  use ExtUtils::MakeMaker;
  13   13  
  14   14  # #defines.
  15   15  my @defines = ( DEFINE => exists($ENV{RELEASE_BUILD}) ? '-DNDEBUG' : '' );
  16   16  
  17   17  # List of POD pages to install.
  18   18  my @man3pods = ( MAN3PODS => {} );
  19   19  

  20   20  #
  21   21  # If not building as part of ON.
  22   22  #
  23   23  if (! exists($ENV{ENVCPPFLAGS1})) {
  24   24  
  25   25          #
  26   26          # Suppress the setting of LD_RUN_PATH.  The ON build environment
  27   27          # contains a modified MakeMaker that does this automatically, so we
  28   28          # only need to do this if we are building outside of ON.
  29   29          #
  30   30          package MY;
  31   31          no warnings qw(once);
  32   32  
  33   33          # Override const_loadlibs to remove LD_RUN_PATH cruft.
  34   34          *const_loadlibs = sub
  35   35          {
  36   36                  my $self = shift(@_);
  37   37                  delete($self->{LD_RUN_PATH});
  38   38                  return($self->SUPER::const_loadlibs(@_));
  39   39          };
  40   40  
  41   41          # Override dynamic_lib to get rid of LD_RUN_PATH cruft.
  42   42          *dynamic_lib = sub
  43   43          {
  44   44                  my $self = shift(@_);
  45   45                  my $txt = $self->SUPER::dynamic_lib(@_);
  46   46                  $txt =~ s/LD_RUN_PATH=\S*\s*//;
  47   47                  return($txt);
  48   48          };
  49   49  
  50   50          # Turn off debugging.
  51   51          @defines = ();
  52   52  
  53   53          #
  54   54          # Install the POD documentation for non-ON builds.
  55   55          #
  56   56          my $man3pfx = '$(INST_MAN3DIR)/Sun::Solaris::Privilege';
  57   57          @man3pods = (
  58   58              MAN3PODS => { 'pod/Privilege.pod' => $man3pfx . '.$(MAN3EXT)' }
  59   59          );
  60   60  }
  61   61  
  62   62  WriteMakefile(
  63   63      NAME         => 'Sun::Solaris::Privilege',
  64   64      VERSION_FROM => 'Privilege.pm',
  65   65      @defines,
  66   66      @man3pods,
  67   67  );

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX