Print this page
3900 illumos will not build against gcc compiled perl
   1 #
   2 # Copyright (c) 2002, 2008, Oracle and/or its affiliates. All rights reserved.

   3 #
   4 
   5 #
   6 # Task.pm provides the bootstrap for the Sun::Solaris::Task module.
   7 #
   8 
   9 require 5.8.4;
  10 use strict;
  11 use warnings;
  12 
  13 package Sun::Solaris::Task;
  14 
  15 our $VERSION = '1.4';
  16 use XSLoader;
  17 XSLoader::load(__PACKAGE__, $VERSION);
  18 
  19 our (@EXPORT_OK, %EXPORT_TAGS);
  20 my @constants = qw(TASK_NORMAL TASK_FINAL TASK_PROJ_PURGE);
  21 my @syscalls = qw(settaskid gettaskid);
  22 @EXPORT_OK = (@constants, @syscalls);
  23 %EXPORT_TAGS = (CONSTANTS => \@constants, SYSCALLS => \@syscalls,
  24     ALL => \@EXPORT_OK);
  25 
  26 use base qw(Exporter);
  27 
  28 1;
   1 #
   2 # Copyright (c) 2002, 2008, Oracle and/or its affiliates. All rights reserved.
   3 # Copyright (c) 2014 Racktop Systems.
   4 #
   5 
   6 #
   7 # Task.pm provides the bootstrap for the Sun::Solaris::Task module.
   8 #
   9 
  10 require 5.0010;
  11 use strict;
  12 use warnings;
  13 
  14 package Sun::Solaris::Task;
  15 
  16 our $VERSION = '1.4';
  17 use XSLoader;
  18 XSLoader::load(__PACKAGE__, $VERSION);
  19 
  20 our (@EXPORT_OK, %EXPORT_TAGS);
  21 my @constants = qw(TASK_NORMAL TASK_FINAL TASK_PROJ_PURGE);
  22 my @syscalls = qw(settaskid gettaskid);
  23 @EXPORT_OK = (@constants, @syscalls);
  24 %EXPORT_TAGS = (CONSTANTS => \@constants, SYSCALLS => \@syscalls,
  25     ALL => \@EXPORT_OK);
  26 
  27 use base qw(Exporter);
  28 
  29 1;