diff options
| author | Laszlo Molnar <laszlo.molnar@eth.ericsson.se> | 1998-07-11 01:12:11 +0200 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-11 18:43:11 +0000 |
| commit | 17f71141966ee46b5f078333acef6afd9893a4f4 (patch) | |
| tree | e36a65a900fc3f9da49aac2796d2e58018da99fe /djgpp | |
| parent | c3464db50133a6aa976b7250fa2eb5c58e26f877 (diff) | |
| download | perl-17f71141966ee46b5f078333acef6afd9893a4f4.tar.gz | |
dos-djgpp update
Message-ID: <19980710231211.A161@cdata.tvnet.hu>
p4raw-id: //depot/perl@1433
Diffstat (limited to 'djgpp')
| -rw-r--r-- | djgpp/config.over | 2 | ||||
| -rw-r--r-- | djgpp/djgppsed.sh | 1 | ||||
| -rw-r--r-- | djgpp/fixpmain | 4 |
3 files changed, 5 insertions, 2 deletions
diff --git a/djgpp/config.over b/djgpp/config.over index b11b4936fe..fc66e9eca9 100644 --- a/djgpp/config.over +++ b/djgpp/config.over @@ -8,12 +8,14 @@ repair() sed \ -e 's/^b/B/'\ -e 's=\([^a-z_]\)b=\1B='\ + -e 's=data/dumper=Data/Dumper='\ -e 's/db_file/DB_File/'\ -e 's/dynaload/DynaLoader/'\ -e 's/errno/Errno/'\ -e 's/fcntl/Fcntl/'\ -e 's/gdbm_fil/GDBM_File/'\ -e 's/io/IO/'\ + -e 's=ipc/sysv=IPC/SysV='\ -e 's/ndbm_fil/NDBM_File/'\ -e 's/odbm_fil/ODBM_File/'\ -e 's/opcode/Opcode/'\ diff --git a/djgpp/djgppsed.sh b/djgpp/djgppsed.sh index bf9d4ea7b4..5276f4f67f 100644 --- a/djgpp/djgppsed.sh +++ b/djgpp/djgppsed.sh @@ -46,3 +46,4 @@ sed -e $SPACKLIST installman >s; mv -f s installman sed -e $SPACKLIST lib/ExtUtils/Installed.pm >s; mv -f s lib/ExtUtils/Installed.pm sed -e $SPACKLIST lib/ExtUtils/Packlist.pm >s; mv -f s lib/ExtUtils/Packlist.pm sed -e $SPACKLIST lib/ExtUtils/inst >s; mv -f s lib/ExtUtils/inst +sed -e $SABC t/io/iprefix.t >s; mv -f s t/io/iprefix.t diff --git a/djgpp/fixpmain b/djgpp/fixpmain index 6db6555ecf..e999ff5ded 100644 --- a/djgpp/fixpmain +++ b/djgpp/fixpmain @@ -19,8 +19,8 @@ $perlmain =~ s/^.*boot_$badname.*$//gm if $badname; # delete bad lines for $realname (@exts,'DynaLoader') { $dosname=substr (lc $realname,0,8); - $perlmain =~ s/boot_$dosname/boot_$realname/gm; - $perlmain =~ s/$dosname(::bootstrap)/$realname$1/gm; + $perlmain =~ s/\bboot_$dosname/boot_$realname/gm; + $perlmain =~ s/\b$dosname(::bootstrap)/$realname$1/gm; } #DynaLoader is special |