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

diff --git a/djgpp/fixpmain b/djgpp/fixpmain
index 6b0591c..3f965f1 100644
--- a/djgpp/fixpmain
+++ b/djgpp/fixpmain
@@ -20,7 +20,9 @@ for $realname (@exts)
 {
     $dosname=join ("__",map {lc substr ($_,0,8)} split /\//,$realname);
     $realname =~ s!/!__!g;
-    $perlmain =~ s/\bboot_$dosname/boot_$realname/gm;
+    $perlmain =~ s/\bboot_$dosname\b/boot_$realname/gm;
+    $dosname =~ s/__/::/;
+    $realname =~ s/__/::/;
     $perlmain =~ s/\b$dosname(::bootstrap)/$realname$1/gm;
 }