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
|
################################################################################
#
# $Revision: 18 $
# $Author: mhx $
# $Date: 2008/11/26 23:12:58 +0100 $
#
################################################################################
#
# Version 2.x, Copyright (C) 2007, Marcus Holland-Moritz <mhx@cpan.org>.
# Version 1.x, Copyright (C) 1999, Graham Barr <gbarr@pobox.com>.
#
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
################################################################################
require 5.004_05;
use strict;
use ExtUtils::MakeMaker;
unless ($ENV{'PERL_CORE'}) {
$ENV{'PERL_CORE'} = 1 if grep { $_ eq 'PERL_CORE=1' } @ARGV;
}
if ($^O eq 'MSWin32') {
die "OS unsupported\n";
}
WriteMakefile(
NAME => 'IPC::SysV',
VERSION_FROM => 'lib/IPC/SysV.pm',
PREREQ_PM => {
'Test::More' => 0.45,
},
CONFIGURE => \&configure,
);
sub configure
{
my @moreopts;
my %depend;
if (eval $ExtUtils::MakeMaker::VERSION >= 6) {
push @moreopts, AUTHOR => 'Marcus Holland-Moritz <mhx@cpan.org>',
ABSTRACT_FROM => 'lib/IPC/SysV.pm';
}
if (eval $ExtUtils::MakeMaker::VERSION >= 6.30_01) {
print "Setting license tag...\n";
push @moreopts, LICENSE => 'perl';
}
if ($ENV{'PERL_CORE'}) {
# Pods will be built by installman.
push @moreopts, MAN3PODS => {},
realclean => { FILES => "const-c.inc const-xs.inc" };
}
else {
# IPC::SysV is in the core since 5.005
push @moreopts, INSTALLDIRS => ($] >= 5.005 ? 'perl' : 'site');
}
$depend{'SysV.xs'} = 'const-c.inc const-xs.inc';
return {
depend => \%depend,
@moreopts
};
}
#--- MY package
sub MY::libscan
{
package MY;
my($self, $path) = @_;
return $path if $self->SUPER::libscan($path) and
$path !~ m! [~%]$
| \.(cache\.cm|swp|orig|rej)$
| regen\.pl$
!x;
return '';
}
sub MY::postamble
{
package MY;
my $post = shift->SUPER::postamble(@_);
$post .= <<'POSTAMBLE';
purge_all: realclean
@$(RM_F) const-c.inc const-xs.inc
regen:
$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) regen.pl
const-c.inc: lib/IPC/SysV.pm regen.pl
@$(MAKE) regen
const-xs.inc: lib/IPC/SysV.pm regen.pl
@$(MAKE) regen
POSTAMBLE
return $post;
}
|
