diff options
| author | Laszlo Molnar <laszlo.molnar@eth.ericsson.se> | 1998-07-25 02:53:39 +0200 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-26 02:12:46 +0000 |
| commit | a7d17c964676789337c0efe02a652534d246d031 (patch) | |
| tree | a914f44f2874d889a76b0753c0ad747d49fe3bc7 /djgpp | |
| parent | ea9a7f8e577286c9271a4e622f97869a07bf4c4e (diff) | |
| download | perl-a7d17c964676789337c0efe02a652534d246d031.tar.gz | |
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
Diffstat (limited to 'djgpp')
| -rw-r--r-- | djgpp/fixpmain | 7 |
1 files changed, 4 insertions, 3 deletions
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; } |