config/auto/thread.pm

   1 # Copyright (C) 2009, Parrot Foundation.
   2 # $Id$
   3
   4 =head1 NAME
   5
   6 config/auto/thread.pm - Thread support
   7
   8 =head1 DESCRIPTION
   9
  10 Determining if the system has a Thread support.
  11
  12 =cut
  13
  14 package auto::thread;
  15
  16 use strict;
  17 use warnings;
  18
  19 use base qw(Parrot::Configure::Step);
  20
  21 use Parrot::Configure::Utils ':auto';
  22
  23 sub _init {
  24     my $self = shift;
  25     my %data;
  26     $data{description} = q{Does your system has thread};
  27     $data{result}      = q{};
  28     return \%data;
  29 }
  30
  31 sub runstep {
  32     my ( $self, $conf ) = @_;
  33
  34     my ( $verbose, $without ) = $conf->options->get(
  35         qw|
  36             verbose
  37             without-threads
  38         |
  39     );
  40
  41     if ($without) {
  42         $conf->data->set( HAS_THREADS => 0 );
  43         $self->set_result('no');
  44         return 1;
  45     }
  46
  47     if ($conf->data->get_p5('OSNAME') eq 'MSWin32'
  48      || $conf->data->get('i_pthread') eq 'define') {
  49         $conf->data->set( HAS_THREADS => 1 );
  50         $self->set_result('yes');
  51     }
  52     else {
  53         $conf->data->set( HAS_THREADS => 0 );
  54         $self->set_result('no');
  55     }
  56
  57     return 1;
  58 }
  59
  60 1;
  61
  62 # Local Variables:
  63 #   mode: cperl
  64 #   cperl-indent-level: 4
  65 #   fill-column: 100
  66 # End:
  67 # vim: expandtab shiftwidth=4: