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
|
BEGIN{if ($^O =~ /MSWin/) {
print "getting dosglob...\n";
require File::DosGlob;
File::DosGlob->import('glob');}
}
use ExtUtils::MakeMaker;
@pods = map { $_=~s/.pod//; $_ } glob("*.pod");
# do we want to create PP-Inline?
eval 'require Pod::Select';
if (!$@ && $] >= 5.005 ) {
push @pods, 'PP-Inline' unless grep {/PP-Inline/} @pods;
}
# DISABLED
# push @pods, 'Export';
my @man1 = map { $_.".pod", '$(INST_MAN1DIR)/PDL::' . $_ . '.$(MAN1EXT)' } @pods;
push @man1, 'Intro.pod', '$(INST_MAN1DIR)/pdl'.'.$(MAN1EXT)';
my @pms = map { $_.".pod", '$(INST_LIBDIR)/' . $_ .".pod"} @pods;
WriteMakefile(
'NAME' => 'PDL::pod',
'MAN1PODS' => { @man1 },
'MAN3PODS' => { },
'PM' => { @pms },
'clean' => {FILES => "PP-Inline.pod"},
'linkext' => {LINKTYPE => ''}, # No linking required in this directory
);
sub MY::postamble {
my $text = '';
eval 'require Pod::Select';
if (!$@ && $] >= 5.005 ) {
$text .= << 'EOT';
PP-Inline.pod: ../Gen/Inline/Pdlpp.pm
podselect ../Gen/Inline/Pdlpp.pm > PP-Inline.pod
EOT
}
$text;
}
|
