# $Id$ # use 5.008; use ExtUtils::MakeMaker; use ExtUtils::PkgConfig; use Getopt::Long; my $rpmv; GetOptions( 'rpmversion=s' => \$rpmv, 'rebuildh' => \my $rebh, ); my $rpmheaderlocation; foreach (qw( /usr/include /usr/local/include )) { if (-d "$_/rpm") { $rpmheaderlocation = "$_/rpm"; last; } } $rpmheaderlocation or die "Can't find rpmheader location"; my %cfg = ExtUtils::PkgConfig->find("rpm"); $rpmv ||= $cfg{modversion}; open(my $FH, "> rpmversion.h") or die "Can't open rpmversion.h"; print $FH "/* File generated by Mafile.PL\n"; print $FH ' * $Id$' . "\n"; print $FH " */\n\n"; print $FH "#ifndef RPMVERSION_H\n#define RPMVERSION_H\n\n"; foreach (qw( 4.9.0 4.9.1 4.9.1.1 4.9.1.2 4.10.0 4.11.0 4.11.1 4.11.2 4.11.3 4.12.0 4.12.90 )) { my $v = $_; $v =~ s/\./_/g; print $FH "#define RPM$v\n"; $rpmv =~ /^\Q$_/ and last; } print $FH "\n#endif\n"; close($FH); exit 0 if $rebh; my @rpmconstantfiles = qw( rpmconstant.c rpmconstant.h rpmconstant_internal.c rpmh2tbl ); my ($obj, $ldd, $fl) = -f '/usr/include/rpmconstant/rpmconstant.h' ? ('', '-lrpmconstant', '-DHAVE_RPMCONSTANT') : ('rpmconstant.o rpmconstant_internal.o rpmconstanttbl.o', '', ''); sub MY::postamble() { my $first = < \$@ RPMCONSTTBL # This code is to reduce duplication of files # in fact it is only usefull for the maintainers of this module # if you get the module from CPAN, those files are already here # if you're building from svn, you need rpmconstant directory my $second = "copyrpmconstant: " . join(" ", @rpmconstantfiles) . "\n\n"; if (-d '../../rpmconstant') { foreach (@rpmconstantfiles) { $second .= "$_: ../../rpmconstant/$_\n\tcp -a \$< \$@\n\n"; } } $first . $second; } my $v = $rpmv; $v =~ s/\./_/g; WriteMakefile( NAME => 'RPM4', VERSION_FROM => '../lib/RPM4.pm', OBJECT => "RPM4.o $obj", INC => "-I$rpmheaderlocation", LIBS => [ $cfg{libs} . " -lrpmsign -lrpmbuild $ldd" ], CCFLAGS => "$cfg{cflags} -Wall $fl -DRPM$v", depend => { "RPM4.xs" => join(" ", @rpmconstantfiles) }, );