diff options
author | Guillaume Cottenceau <gc@mandriva.com> | 2002-08-01 17:35:43 +0000 |
---|---|---|
committer | Guillaume Cottenceau <gc@mandriva.com> | 2002-08-01 17:35:43 +0000 |
commit | 36c3056b46649d0f28dd3b49f61ad08e8049548a (patch) | |
tree | 5d5a8e8b6880e3acdbf7349ccf62c4860fc6332c /grpmi/rpm/Makefile.PL | |
parent | 814cacf5edc5ad3642157a23d6d8cff249644d3a (diff) | |
download | rpmdrake-36c3056b46649d0f28dd3b49f61ad08e8049548a.tar rpmdrake-36c3056b46649d0f28dd3b49f61ad08e8049548a.tar.gz rpmdrake-36c3056b46649d0f28dd3b49f61ad08e8049548a.tar.bz2 rpmdrake-36c3056b46649d0f28dd3b49f61ad08e8049548a.tar.xz rpmdrake-36c3056b46649d0f28dd3b49f61ad08e8049548a.zip |
Initial revisionV2_0topic/RPMDRAKE
Diffstat (limited to 'grpmi/rpm/Makefile.PL')
-rw-r--r-- | grpmi/rpm/Makefile.PL | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/grpmi/rpm/Makefile.PL b/grpmi/rpm/Makefile.PL new file mode 100644 index 00000000..b5022502 --- /dev/null +++ b/grpmi/rpm/Makefile.PL @@ -0,0 +1,52 @@ +use ExtUtils::MakeMaker; +use Config; + +my $rpm_cflags = '-I/usr/include/rpm'; +my $rpm_libs = '-lrpm -lrpmdb -lrpmio -lpopt'; + +ccompile('#include <rpm/rpmlib.h> + #include <rpm/misc.h> + ', + 'rpmdb db;', + $rpm_cflags, + $rpm_libs) + or + die_('rpm devel environment is needed'); + + +WriteMakefile( + 'NAME' => 'grpmi_rpm', + 'LIBS' => [ $rpm_libs ], + 'VERSION_FROM' => 'grpmi_rpm.pm', # finds VERSION + 'OBJECT' => 'grpmi_rpm.o', + 'INC' => $rpm_cflags, + 'OPTIMIZE' => '-O2 -Wall -Werror -g', + 'MAKEFILE' => 'Makefile_c', +); + + + + +# Taken from Makefile.PL from Gtk-Perl +sub ccompile { + my ($headers, $main, $cflags, $libs) = @_; + my $fname = "temctest"; + my $r; + chomp($cflags, $libs); + open(CTEST, ">$fname.c") || return 0; + print CTEST <<"EOTEST"; +$headers + +int main (int argc, char* argv[]) { +$main; +} +EOTEST + close(CTEST); + $r = system("$Config{cc} -o $fname $fname.c $cflags $libs 2>/dev/null 1>/dev/null"); + warn("RUNNING: $Config{cc} -o $fname $fname.c $cflags $libs\n") if $ENV{VERBOSE}; + unlink($fname, "$fname.c"); + return $r == 0; +} + +sub chomp_ { my @l = map { my $l = $_; chomp $l; $l } @_; wantarray ? @l : $l[0] } +sub die_ { die "\n **ERROR**: @_\n\n" } |