DJGPP updates from Laszlo Molnar.

p4raw-id: //depot/perl@16370

diff --git a/djgpp/config.over b/djgpp/config.over
index 032f85e..c27011b 100644 (file)
--- a/djgpp/config.over
+++ b/djgpp/config.over
@@ -25,7 +25,7 @@ repair()
      -e 's/posix/POSIX/'\
      -e 's/sdbm_fil/SDBM_File/'\
      -e 's/socket/Socket/'\
-     -e 's/thread/Thread/'\
+     -e 's=[tT]hread[/a-zA-Z]*==g'\
      -e 's/byteload/ByteLoader/'\
      -e 's=devel/peek=Devel/Peek='\
      -e 's=devel/dprof=Devel/DProf='\
@@ -45,6 +45,7 @@ repair()
      -e 's=list/util=List/Util=' \
      -e 's=cwd=Cwd=' \
      -e 's=perlio/via=PerlIO/Via=' \
+     -e 's=perlio/encoding=PerlIO/encoding=' \
      -e 's=xs/typemap=XS/Typemap=' \
      -e 's=unicode/normaliz=Unicode/Normalize=' \
      -e 's=i18n/langinfo=I18N/Langinfo=' \

diff --git a/ext/Cwd/t/cwd.t b/ext/Cwd/t/cwd.t
index 92079c0..6b0453d 100644 (file)
--- a/ext/Cwd/t/cwd.t
+++ b/ext/Cwd/t/cwd.t
@@ -40,6 +40,8 @@ if ($^O eq 'MSWin32') {
     $pwd_cmd =~ s,/,\\,g;
     $pwd_cmd = "$pwd_cmd /c cd";
 }
+$pwd_cmd =~ s=\\=/=g if ($^O eq 'dos');
+
 print "# native pwd = '$pwd_cmd'\n";
 
 SKIP: {

diff --git a/hints/dos_djgpp.sh b/hints/dos_djgpp.sh
index f46bed8..3ae9d22 100644 (file)
--- a/hints/dos_djgpp.sh
+++ b/hints/dos_djgpp.sh
@@ -73,3 +73,4 @@ esac
 EOCBU
 
 useperlio='undef'
+uselargefiles='undef'