From a7d17c964676789337c0efe02a652534d246d031 Mon Sep 17 00:00:00 2001
From: Laszlo Molnar <laszlo.molnar@eth.ericsson.se>
Date: Sat, 25 Jul 1998 02:53:39 +0200
Subject: fix problem building modules on dos-djgpp 	Message-ID:
 <19980725005339.C222@cdata.tvnet.hu> 	Subject: [PATCH 5.005] dos-djgpp and
 modules problem

p4raw-id: //depot/maint-5.005/perl@1656
---
 djgpp/fixpmain | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'djgpp')

diff --git a/djgpp/fixpmain b/djgpp/fixpmain
index e999ff5ded..6b0591c40f 100644
--- a/djgpp/fixpmain
+++ b/djgpp/fixpmain
@@ -15,10 +15,11 @@ $makefile=<MAKEFILE>;
 $badname=join ("__",map {lc substr ($_,0,8)} split /:+/); # dosify
 $perlmain =~ s/^.*boot_$badname.*$//gm if $badname; # delete bad lines
 
-@exts=split (" ",$Config{known_extensions});
-for $realname (@exts,'DynaLoader')
+@exts=('DynaLoader',split (" ",$Config{known_extensions}));
+for $realname (@exts)
 {
-    $dosname=substr (lc $realname,0,8);
+    $dosname=join ("__",map {lc substr ($_,0,8)} split /\//,$realname);
+    $realname =~ s!/!__!g;
     $perlmain =~ s/\bboot_$dosname/boot_$realname/gm;
     $perlmain =~ s/\b$dosname(::bootstrap)/$realname$1/gm;
 }
-- 
cgit v1.2.1