diff options
| author | David Steinbrunner <dsteinbrunner@pobox.com> | 2013-05-21 06:50:14 -0400 |
|---|---|---|
| committer | James E Keenan <jkeenan@cpan.org> | 2013-05-24 01:49:39 +0200 |
| commit | aded5122391be239cff0d21bdfb48a1e18222483 (patch) | |
| tree | b53689198ddc6a5459bb951dbabf2f736c1861d1 /djgpp | |
| parent | 09bf710e3bc7de550fe7d6629360d1328d015873 (diff) | |
| download | perl-aded5122391be239cff0d21bdfb48a1e18222483.tar.gz | |
making DOS stand out in dosify
Diffstat (limited to 'djgpp')
| -rw-r--r-- | djgpp/fixpmain | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/djgpp/fixpmain b/djgpp/fixpmain index 3f965f1c5b..8ebbf78623 100644 --- a/djgpp/fixpmain +++ b/djgpp/fixpmain @@ -12,7 +12,7 @@ $perlmain=<PERLM>; $makefile=<MAKEFILE>; ($_) = $makefile =~ /\bNAME\b.*=>\W*([\w\:]+)/; # extract module name -$badname=join ("__",map {lc substr ($_,0,8)} split /:+/); # dosify +$badname=join ("__",map {lc substr ($_,0,8)} split /:+/); # DOSify $perlmain =~ s/^.*boot_$badname.*$//gm if $badname; # delete bad lines @exts=('DynaLoader',split (" ",$Config{known_extensions})); |