From: Laszlo Molnar <laszlo.molnar@eth.ericsson.se>
Date: Tue, 19 Jun 2001 10:59:06 +0000 (+0200)
Subject: djgpp updates
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=87dc812ed71694a5521f0d42f9ebe01f7ee37248;p=p5sagit%2Fp5-mst-13.2.git

djgpp updates
Message-ID: <20010619105906.C5600@libra.eth.ericsson.se>

p4raw-id: //depot/perl@10718
---

diff --git a/djgpp/config.over b/djgpp/config.over
index 9e66eef..a040ece 100644
--- a/djgpp/config.over
+++ b/djgpp/config.over
@@ -41,7 +41,7 @@ repair()
      -e 's=digest/md5=Digest/MD5=' \
      -e 's=perlio/scalar=PerlIO/Scalar=' \
      -e 's=mime/base64=MIME/Base64=' \
-     -e 's=time/hires=Time/HiRes='
+     -e 's=time/hires=Time/HiRes=' \
      -e 's=list/util=List/Util=' \
      -e 's=time/piece=Time/Piece='
 }
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;
 }