httpdunit_gen_cases: separate declarations from calls

This gets around strict compiler warnings.

git-svn-id: https://svn.apache.org/repos/asf/httpd/httpd/branches/httpdunit@1796203 13f79535-47bb-0310-9956-ffa450edef68

1 files changed, 13 insertions, 2 deletions

diff --git a/build/httpdunit_gen_cases.pl b/build/httpdunit_gen_cases.pl
index a40d12c773..8e492a664d 100755
--- a/build/httpdunit_gen_cases.pl
+++ b/build/httpdunit_gen_cases.pl
@@ -14,10 +14,21 @@
 use strict;
 use warnings;
 
+use Getopt::Long;
+
+my $print_declaration = 0;
+
+GetOptions("declaration" => \$print_declaration)
+    or die("unknown option");
+
 while (my $line = <>) {
     if ($line =~ /^HTTPD_BEGIN_TEST_CASE(?:\w+)?\((\w+)/) {
         my $name = "$1_test_case";
-        print "TCase *$name(void); ";
-        print "suite_add_tcase(suite, $name());\n";
+
+        if ($print_declaration) {
+            print "TCase *$name(void);\n";
+        } else {
+            print "suite_add_tcase(suite, $name());\n";
+        }
     }
 }