httpd-apreq-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject svn commit: r125045 - /httpd/apreq/trunk/glue/perl/Makefile.PL
Date Thu, 13 Jan 2005 06:17:34 GMT
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(\@docs,\@tests) . <<EOT;
+    my $string = copy_docs(@docs);
+
+    my $test_docs = test_docs(\@docs, \@tests);
+
+    if ($test_docs) {
+        $string .= $test_docs;
+        $string .= <<EOT;
 doc_test : @tests
 	\$(FULLPERLRUN) "-Mblib" "-MTest::Harness" "-e" "runtests(\@ARGV)" @tests
 
 test :: doc_test
 
 EOT
+    } else {
+        $string .= <<EOT;
+test ::
+	\$(NOECHO) \$(ECHO) pod2test was not found, skipping inlined tests
+
+EOT
+    }
 
+    return $string;
 }
 
 

Mime
View raw message