use ExtUtils::MakeMaker; chomp(my $pyinc = `python ./pyinc.py`); print "Picking up pyton include files from \"$pyinc\"\n"; my @define; my @libs; push(@define, "MULTI_PERL") if -f "../MULTI_PERL"; if (-f "../BOOT_FROM_PERL") { push(@define, "BOOT_FROM_PERL"); # XXX need to find the location of python.a, and this # is obviously not the right way... my $pylib = $pyinc; $pylib =~ s/include/lib/; $pylib =~ m,/(python[^/]+)$, || die; $pylib .= "/config"; push(@libs, "-L$pylib -l$1"); push(@extra, OBJECT => "Object.o /local/python/1.5.2-thr/lib/python1.5/site-packages/perl.so"); } if ($^O eq 'MSWin32') { my $pylib; for (15,16,20) { $pylib = "$pyinc\\..\\libs\\python$_.lib"; last if -f $pylib; } push(@libs, "\"$pylib\"", "..\\perlpyd.lib"); push(@extra, FUNCLIST => [qw(boot_Python__Object newPerlPyObject_noinc newPerlPyObject_inc)], ); } if (@define) { push(@extra, DEFINE => join(" ", map "-D$_", @define)); } if (@libs) { if ($^O eq 'MSWin32') { push(@extra, LIBS => join(" ", @libs)); } else { push(@extra, LIBS => \@libs); } } WriteMakefile( NAME => 'Python::Object', VERSION_FROM => 'Object.pm', INC => "-I\"$pyinc\"", @extra, dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', }, );