--- Test-Without-Module-0.06-ln4qAS/Makefile.PL~ 2003-03-09 13:27:38.000000000 +0100 +++ Test-Without-Module-0.06-WY27cw/Makefile.PL 2006-12-29 08:40:41.000000000 +0100 @@ -1,4 +1,5 @@ use ExtUtils::MakeMaker; +use File::Spec; # See lib/ExtUtils/MakeMaker.pm for details of how to influence # the contents of the Makefile that is written. WriteMakefile( @@ -10,15 +11,16 @@ WriteMakefile( AUTHOR => 'Max Maischein ') : ()), ); -use vars qw($have_test_inline); +use vars qw($have_pod_tests); BEGIN { - eval { require Test::Inline; - $have_test_inline = 1; }; + eval { require Pod::Tests; + $have_pod_tests = 1; }; undef $@; print "Test::Inline is nice for testing the examples, but not necessary\n" - unless $have_test_inline; + unless $have_pod_tests; }; +use Config; # Autocreate the synopsis test from the pod of every module # (if we have Test::Inline) { @@ -27,10 +29,11 @@ BEGIN { sub top_targets { my($self) = @_; - my $out = "POD2TEST_EXE = pod2test\n"; + my $pod2test_exe = File::Spec->catfile($Config::Config{scriptdir}, "pod2test"); + my $out = "POD2TEST_EXE = $pod2test_exe\n"; $out .= $self->SUPER::top_targets(@_); - return $out unless $main::have_test_inline; + return $out unless $main::have_pod_tests; $out =~ s/^(pure_all\b.*)/$1 testifypods/m; @@ -50,4 +53,4 @@ BEGIN { return $out; } -} \ No newline at end of file +}