Author: stas Date: Wed Jan 12 22:17:33 2005 New Revision: 125045 URL: http://svn.apache.org/viewcvs?view=rev&rev=125045 Log: properly handle the case when pod2test is not found (print a skip message)
Modified: httpd/apreq/trunk/glue/perl/Makefile.PL Modified: httpd/apreq/trunk/glue/perl/Makefile.PL Url: http://svn.apache.org/viewcvs/httpd/apreq/trunk/glue/perl/Makefile.PL?view=diff&rev=125045&p1=httpd/apreq/trunk/glue/perl/Makefile.PL&r1=125044&p2=httpd/apreq/trunk/glue/perl/Makefile.PL&r2=125045 ============================================================================== --- httpd/apreq/trunk/glue/perl/Makefile.PL (original) +++ httpd/apreq/trunk/glue/perl/Makefile.PL Wed Jan 12 22:17:33 2005 @@ -224,14 +224,28 @@ my @tests = @docs; s/pod$/t/ for @tests; - return copy_docs(@docs) . test_docs([EMAIL PROTECTED],[EMAIL PROTECTED]) . <<EOT; + my $string = copy_docs(@docs); + + my $test_docs = test_docs([EMAIL PROTECTED], [EMAIL PROTECTED]); + + if ($test_docs) { + $string .= $test_docs; + $string .= <<EOT; doc_test : @tests \$(FULLPERLRUN) "-Mblib" "-MTest::Harness" "-e" "runtests([EMAIL PROTECTED])" @tests test :: doc_test EOT + } else { + $string .= <<EOT; +test :: + \$(NOECHO) \$(ECHO) pod2test was not found, skipping inlined tests + +EOT + } + return $string; }
