Change 16370 by jhi@alpha on 2002/05/03 12:36:54
DJGPP updates from Laszlo Molnar.
Affected files ...
.... //depot/perl/djgpp/config.over#25 edit
.... //depot/perl/ext/Cwd/t/cwd.t#11 edit
.... //depot/perl/hints/dos_djgpp.sh#15 edit
Differences ...
==== //depot/perl/djgpp/config.over#25 (text) ====
Index: perl/djgpp/config.over
--- perl/djgpp/config.over.~1~ Fri May 3 06:45:06 2002
+++ perl/djgpp/config.over Fri May 3 06:45:06 2002
@@ -25,7 +25,7 @@
-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 @@
-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=' \
==== //depot/perl/ext/Cwd/t/cwd.t#11 (text) ====
Index: perl/ext/Cwd/t/cwd.t
--- perl/ext/Cwd/t/cwd.t.~1~ Fri May 3 06:45:06 2002
+++ perl/ext/Cwd/t/cwd.t Fri May 3 06:45:06 2002
@@ -40,6 +40,8 @@
$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: {
==== //depot/perl/hints/dos_djgpp.sh#15 (text) ====
Index: perl/hints/dos_djgpp.sh
--- perl/hints/dos_djgpp.sh.~1~ Fri May 3 06:45:06 2002
+++ perl/hints/dos_djgpp.sh Fri May 3 06:45:06 2002
@@ -73,3 +73,4 @@
EOCBU
useperlio='undef'
+uselargefiles='undef'
End of Patch.
