3900 illumos will not build against gcc compiled perl

          --- old/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/File/File.pm
          +++ new/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/File/File.pm
   1    1  #
   2    2  # Copyright (c) 2002, 2008, Oracle and/or its affiliates. All rights reserved.
   3    3  #
   4    4  
   5    5  #
   6    6  # File.pm contains wrappers for the exacct file manipulation routines.
   7    7  # 
   8    8  
   9      -require 5.8.4;
        9 +require 5.0010;
  10   10  use strict;
  11   11  use warnings;
  12   12  
  13   13  package Sun::Solaris::Exacct::File;
  14   14  
  15   15  our $VERSION = '1.3';
  16   16  use XSLoader;
  17   17  XSLoader::load(__PACKAGE__, $VERSION);
  18   18  
  19   19  # @_Constants is set up by the XSUB bootstrap() function.

  20   20  our (@EXPORT_OK, %EXPORT_TAGS, @_Constants);
  21   21  @EXPORT_OK = @_Constants;
  22   22  %EXPORT_TAGS = (CONSTANTS => \@_Constants, ALL => \@EXPORT_OK);
  23   23  
  24   24  use base qw(Exporter);
  25   25  
  26   26  #
  27   27  # Extend the default Exporter::import to do optional inclusion of the
  28   28  # Fcntl module.
  29   29  #
  30   30  sub import
  31   31  {
  32   32          # Do the normal export processing for this module.
  33   33          __PACKAGE__->export_to_level(1, @_);
  34   34  
  35   35          # Export from Fcntl if the tag is ':ALL'
  36   36          if (grep(/^:ALL$/, @_)) {
  37   37                  require Fcntl;
  38   38                  Fcntl->export_to_level(1, undef, ':DEFAULT');
  39   39          }
  40   40  }
  41   41  
  42   42  1;

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX