X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=djgpp%2Ffixpmain;h=3f965f1c5bef1168aa5cde29ca8dc5a009bd91b7;hb=7d824d8e6f7cacfafe95d58fa9ab3d99bd41e854;hp=6db6555ecf1fd2ec6be04235f37d0e9bfe06ce56;hpb=39e571d41067215a80f26089b260f1418caeb36b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/djgpp/fixpmain b/djgpp/fixpmain
index 6db6555..3f965f1 100644
--- a/djgpp/fixpmain
+++ b/djgpp/fixpmain
@@ -15,12 +15,15 @@ $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);
-    $perlmain =~ s/boot_$dosname/boot_$realname/gm;
-    $perlmain =~ s/$dosname(::bootstrap)/$realname$1/gm;
+    $dosname=join ("__",map {lc substr ($_,0,8)} split /\//,$realname);
+    $realname =~ s!/!__!g;
+    $perlmain =~ s/\bboot_$dosname\b/boot_$realname/gm;
+    $dosname =~ s/__/::/;
+    $realname =~ s/__/::/;
+    $perlmain =~ s/\b$dosname(::bootstrap)/$realname$1/gm;
 }
 
 #DynaLoader is special