From: William A. Rowe Jr <wrowe@apache.org>
Date: Fri, 16 Mar 2001 04:18:41 +0000 (+0000)
Subject:   Fix dbmmanage.pl generation for Win32
X-Git-Tag: 2.0.15~33
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7459fbf6f8565da531eef18fa949c76074015a49;p=thirdparty%2Fapache%2Fhttpd.git

  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 43a7a446395..ff69c2025a8 100644
--- 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;
     }
 <<