1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
# Module makefile for threads (using ExtUtils::MakeMaker)
require 5.008;
use strict;
use warnings;
use ExtUtils::MakeMaker;
# Used to check for a 'C' compiler
sub check_cc
{
require File::Spec;
my $cmd = $_[0];
if (-x $cmd or MM->maybe_command($cmd)) {
return (1); # CC command found
}
for my $dir (File::Spec->path(), '.') {
my $abs = File::Spec->catfile($dir, $cmd);
if (-x $abs or MM->maybe_command($abs)) {
return (1); # CC command found
}
}
return;
}
sub have_cc
{
eval { require Config_m; }; # ExtUtils::FakeConfig (+ ActivePerl)
if ($@) {
eval { require Config; }; # Everyone else
}
my @chunks = split(/ /, $Config::Config{cc});
# $Config{cc} may contain args; try to find out the program part
while (@chunks) {
if (check_cc("@chunks")) {
return (1); # CC command found
}
pop(@chunks);
}
return;
}
# Build options for different environments
my @conditional_params;
if (grep { $_ eq 'PERL_CORE=1' } @ARGV) {
# Core
push(@conditional_params, 'MAN3PODS' => {},
'NORECURS' => 1);
} else {
# CPAN
# Verify that a 'C' compiler is available
if (! have_cc()) {
die("OS unsupported: ERROR: No 'C' compiler found to build 'threads'\n");
}
push(@conditional_params, 'DEFINE' => '-DHAS_PPPORT_H',
'PREREQ_PM' => {
'strict' => 0,
'warnings' => 0,
'overload' => 0,
'Config' => 0,
'Carp' => 0,
'XSLoader' => 0,
'Test::More' => 0,
'ExtUtils::testlib' => 0,
'Hash::Util' => 0,
'IO::File' => 0,
});
}
# Create Makefile
WriteMakefile(
'NAME' => 'threads',
'AUTHOR' => 'Artur Bergman, Jerry D. Hedden <jdhedden AT cpan DOT org>',
'VERSION_FROM' => 'threads.pm',
'ABSTRACT_FROM' => 'threads.pm',
'PM' => {
'threads.pm' => '$(INST_LIBDIR)/threads.pm',
},
'INSTALLDIRS' => 'perl',
((ExtUtils::MakeMaker->VERSION() lt '6.25') ?
('PL_FILES' => { }) : ()),
((ExtUtils::MakeMaker->VERSION() gt '6.30') ?
('LICENSE' => 'perl') : ()),
@conditional_params
);
# Additional 'make' targets
sub MY::postamble
{
return <<'_EXTRAS_';
fixfiles:
@dos2unix `cat MANIFEST`
@$(CHMOD) 644 `cat MANIFEST`
@$(CHMOD) 755 examples/*.pl
ppport:
@( cd /tmp; perl -e 'use Devel::PPPort; Devel::PPPort::WriteFile("ppport.h");' )
@if ! cmp -s ppport.h /tmp/ppport.h; then \
( tkdiff ppport.h /tmp/ppport.h & ); \
perl /tmp/ppport.h; \
fi
_EXTRAS_
}
# EOF
|
