Get make_exports.pl to recognize functions that return a const value

git-svn-id: http://svn.apache.org/repos/asf/apr/apr/trunk@60848 13f79535-47bb-0310-9956-ffa450edef68

1 files changed, 2 insertions, 2 deletions

diff --git a/helpers/make_export.pl b/helpers/make_export.pl
index 8541bca2d..461fab93e 100755
--- a/helpers/make_export.pl
+++ b/helpers/make_export.pl
@@ -38,7 +38,7 @@ while ($srcfile = shift(@ARGV)) {
             $line .= "$macro\n";
             next;
         }
-        elsif (/^(APR_DECLARE[^\(]*\()?[a-z_]+\)?\s+([A-Za-z0-9_]+)\(/) {
+        elsif (/^(APR_DECLARE[^\(]*\()?(const\s)?[a-z_]+\)?\s+\*?([A-Za-z0-9_]+)\(/) {
             # We only want to increase this if we are in the middle of a 
             # #if ... #endif block.
             if ($found) {
@@ -47,7 +47,7 @@ while ($srcfile = shift(@ARGV)) {
             for (my $i=0; $i < $count; $i++) {
                 $line .= "\t";
             }
-            $line .= "$2\n";
+            $line .= "$3\n";
             next;
         }
         elsif (/\#endif/) {