Fix dbmmanage.pl generation for Win32

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

diff --git a/Makefile.win b/Makefile.win
index 43a7a446395787cfe349492daca5d4ed22780a95..ff69c2025a872ad6c2348eb4c4167caa857411a4 100644 (file)
--- a/Makefile.win
+++ b/Makefile.win
@@ -216,10 +216,11 @@ A
 <<
        if not exist "$(INSTDIR)\conf\httpd.conf" \
             copy "$(INSTDIR)\conf\httpd.default.conf" "$(INSTDIR)\conf\httpd.conf"
-       awk -f <<script.awk "support\dbmmanage" >"$(INSTDIR)\bin\dbmmanage.pl"
-    { if ( $$0 !~ /^#.*-lsdbm/) {
-          gsub( /AnyDBM_File::ISA = qw\(.*\)/, "AnyDBM_File::ISA = qw(SDBM_File)" ); 
+       awk -f <<script.awk "support\dbmmanage.in" >"$(INSTDIR)\bin\dbmmanage.pl"
+    { if ( $$0 ~ /^BEGIN { @AnyDBM_File::/ ) {
+          sub( /ISA = qw\(.*\)/, "ISA = qw(SDBM_File)" ); 
       }
-      print $$0;
+      if ( $$0 !~ /^#!@perlbin@/ )
+          print $$0;
     }
 <<