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
|
BEGIN{if ($^O =~ /MSWin/) {
print "getting dosglob...\n";
require File::DosGlob;
File::DosGlob->import('glob');}
}
@pms = map {($_ => '$(INST_LIBDIR)/'.$_)}
(<*.pm>, <PP/*.pm>, 'PP/Dump.pm');
push @pms, ('pptemplate.pod' => '$(INST_LIBDIR)/pptemplate.pod')
if $] >= 5.006;
use ExtUtils::MakeMaker;
WriteMakefile(NAME => "PDL::PP",
PM => {@pms},
'EXE_FILES' => ['pptemplate'],
clean => {FILES => "PP/Dump.pm PP/Dump.pm.tmp pptemplate pptemplate.pod"},
);
sub MY::postamble {
my $text =
'PP/Dump.pm: PP/dump.pp
$(PERL) PP/dump.pp > PP/Dump.pm.tmp
'.($^O =~ /win32/i ? ' move PP\Dump.pm.tmp PP\Dump.pm' :
' mv PP/Dump.pm.tmp PP/Dump.pm')."\n";
if ( $] >= 5.006 ) {
$text .= << 'EOT';
pptemplate.pod: pptemplate
podselect pptemplate > pptemplate.pod
EOT
}
$text;
}
#EU::MM's processPL() is continually broken on Win32 ... hence:
sub MY::processPL {
if($^O =~ /MSWin32/i && ($Config{make} eq 'dmake' || $Config{make} eq 'nmake')) {
my($self) = shift;
return "" unless $self->{PL_FILES};
my(@m, $plfile);
foreach $plfile (sort keys %{$self->{PL_FILES}}) {
my $list = ref($self->{PL_FILES}->{$plfile})
? $self->{PL_FILES}->{$plfile}
: [$self->{PL_FILES}->{$plfile}];
my $target;
if($Config{make} eq 'dmake') {
foreach $target (@$list) {
push @m, "
all :: $target
\$(NOECHO) \$(NOOP)
$target :
\$(PERLRUNINST) $plfile $target
";
} # close foreach
}
else {
foreach $target (@$list) {
push @m, "
all :: $target
\$(NOECHO) \$(NOOP)
$target ::
\$(PERLRUNINST) $plfile $target
";
} # close foreach
}
}
join "", @m;
}
else {
package MY;
my $self = shift;
return $self->SUPER::processPL;
}
}
|
