diff options
| author | Laszlo Molnar <laszlo.molnar@eth.ericsson.se> | 2001-06-19 12:59:06 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-19 10:54:22 +0000 |
| commit | 87dc812ed71694a5521f0d42f9ebe01f7ee37248 (patch) | |
| tree | ddb25ca23a5b4910ade4589a5cc2f021a0708e43 /djgpp/fixpmain | |
| parent | 0fefa106d69895b11733fade5a0084102ee3972f (diff) | |
| download | perl-87dc812ed71694a5521f0d42f9ebe01f7ee37248.tar.gz | |
djgpp updates
Message-ID: <20010619105906.C5600@libra.eth.ericsson.se>
p4raw-id: //depot/perl@10718
Diffstat (limited to 'djgpp/fixpmain')
| -rw-r--r-- | djgpp/fixpmain | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/djgpp/fixpmain b/djgpp/fixpmain index 6b0591c40f..3f965f1c5b 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; } |