Return-Path: 
 <apreq-cvs-return-938-apmail-httpd-apreq-cvs-archive=httpd.apache.org@httpd.apache.org>
Delivered-To: apmail-httpd-apreq-cvs-archive@www.apache.org
Received: (qmail 78033 invoked from network); 13 Jan 2005 06:17:36 -0000
Received: from hermes.apache.org (HELO mail.apache.org) (209.237.227.199)
  by minotaur-2.apache.org with SMTP; 13 Jan 2005 06:17:36 -0000
Received: (qmail 75728 invoked by uid 500); 13 Jan 2005 06:17:36 -0000
Delivered-To: apmail-httpd-apreq-cvs-archive@httpd.apache.org
Received: (qmail 75708 invoked by uid 500); 13 Jan 2005 06:17:36 -0000
Mailing-List: contact apreq-cvs-help@httpd.apache.org; run by ezmlm
Precedence: bulk
Reply-To: apreq-dev@httpd.apache.org
List-Post: <mailto:apreq-cvs@httpd.apache.org>
List-Help: <mailto:apreq-cvs-help@httpd.apache.org>
List-Unsubscribe: <mailto:apreq-cvs-unsubscribe@httpd.apache.org>
List-Subscribe: <mailto:apreq-cvs-subscribe@httpd.apache.org>
Delivered-To: mailing list apreq-cvs@httpd.apache.org
Received: (qmail 75693 invoked by uid 99); 13 Jan 2005 06:17:36 -0000
X-ASF-Spam-Status: No, hits=-9.8 required=10.0
	tests=ALL_TRUSTED,NO_REAL_NAME
X-Spam-Check-By: apache.org
Received: from minotaur.apache.org (HELO minotaur.apache.org)
 (209.237.227.194)
  by apache.org (qpsmtpd/0.28) with SMTP; Wed, 12 Jan 2005 22:17:36 -0800
Received: (qmail 78001 invoked by uid 65534); 13 Jan 2005 06:17:34 -0000
Date: 13 Jan 2005 06:17:34 -0000
Message-ID: <20050113061734.77996.qmail@minotaur.apache.org>
From: stas@apache.org
To: apreq-cvs@httpd.apache.org
Subject: svn commit: r125045 - /httpd/apreq/trunk/glue/perl/Makefile.PL
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
X-Virus-Checked: Checked
X-Spam-Rating: minotaur-2.apache.org 1.6.2 0/1000/N

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;
 }