1################################################################################
2#
3#  $Revision: 18 $
4#  $Author: mhx $
5#  $Date: 2008/11/26 23:12:58 +0100 $
6#
7################################################################################
8#
9#  Version 2.x, Copyright (C) 2007, Marcus Holland-Moritz <mhx@cpan.org>.
10#  Version 1.x, Copyright (C) 1999, Graham Barr <gbarr@pobox.com>.
11#
12#  This program is free software; you can redistribute it and/or
13#  modify it under the same terms as Perl itself.
14#
15################################################################################
16
17require 5.004_05;
18
19use strict;
20use ExtUtils::MakeMaker;
21
22unless ($ENV{'PERL_CORE'}) {
23  $ENV{'PERL_CORE'} = 1 if grep { $_ eq 'PERL_CORE=1' } @ARGV;
24}
25
26if ($^O eq 'MSWin32') {
27  die "OS unsupported\n";
28}
29
30WriteMakefile(
31  NAME         => 'IPC::SysV',
32  VERSION_FROM => 'lib/IPC/SysV.pm',
33  PREREQ_PM    => {
34                    'Test::More' => 0.45,
35                  },
36  CONFIGURE    => \&configure,
37);
38
39sub configure
40{
41  my @moreopts;
42  my %depend;
43
44  if (eval $ExtUtils::MakeMaker::VERSION >= 6) {
45    push @moreopts, AUTHOR => 'Marcus Holland-Moritz <mhx@cpan.org>',
46                    ABSTRACT_FROM => 'lib/IPC/SysV.pm';
47  }
48
49  if (eval $ExtUtils::MakeMaker::VERSION >= 6.30_01) {
50    print "Setting license tag...\n";
51    push @moreopts, LICENSE => 'perl';
52  }
53
54  if ($ENV{'PERL_CORE'}) {
55    # Pods will be built by installman.
56    push @moreopts, MAN3PODS  => {},
57                    realclean => { FILES => "const-c.inc const-xs.inc" };
58  }
59  else {
60    # IPC::SysV is in the core since 5.005
61    push @moreopts, INSTALLDIRS => ($] >= 5.005 ? 'perl' : 'site');
62  }
63
64  $depend{'SysV.xs'} = 'const-c.inc const-xs.inc';
65
66  return {
67    depend => \%depend,
68    @moreopts
69  };
70}
71
72
73#--- MY package
74
75sub MY::libscan
76{
77  package MY;
78  my($self, $path) = @_;
79  return $path if $self->SUPER::libscan($path) and
80                  $path !~ m! [~%]$
81                            | \.(cache\.cm|swp|orig|rej)$
82                            | regen\.pl$
83                            !x;
84  return '';
85}
86
87sub MY::postamble
88{
89  package MY;
90  my $post = shift->SUPER::postamble(@_);
91  $post .= <<'POSTAMBLE';
92
93purge_all: realclean
94	@$(RM_F) const-c.inc const-xs.inc
95
96regen:
97	$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) regen.pl
98
99const-c.inc: lib/IPC/SysV.pm regen.pl
100	@$(MAKE) regen
101
102const-xs.inc: lib/IPC/SysV.pm regen.pl
103	@$(MAKE) regen
104
105POSTAMBLE
106  return $post;
107}
108
109