develooper Front page | perl.perl5.porters | Postings from October 1999

[PATCH 5.005_62] dos-djgpp update

Thread Next
From:
Laszlo Molnar
Date:
October 25, 1999 01:11
Subject:
[PATCH 5.005_62] dos-djgpp update
Message ID:
19991025101130.K459@crater.eth.ericsson.se
Changed:
  t/lib/io_unix.t
  pod/perldelta.pod
  djgpp/djgppsed.sh
  djgpp/configure.bat
  djgpp/config.over

Apply with:
  patch -p1 <thisfile

bye, Laszlo

Index: 0.2/t/lib/io_unix.t
--- 0.2/t/lib/io_unix.t Wed, 20 Oct 1999 19:21:09 +0000 ml (perl/f/51_io_unix.t 1.1 555)
+++ 0.2(w)/t/lib/io_unix.t Sat, 23 Oct 1999 14:19:28 +0000 ml (perl/f/51_io_unix.t 1.1 555)
@@ -5,6 +5,10 @@
         chdir 't' if -d 't';
         unshift @INC, '../lib' if -d '../lib';
     }
+    # ``use IO::Socket'' executes too early below in the os2 block
+    if ($^O eq 'dos') {
+        print "1..0 # Skip: no fork\n";
+    }
 }

 use Config;
Index: 0.2/pod/perldelta.pod
--- 0.2/pod/perldelta.pod Wed, 20 Oct 1999 19:29:49 +0000 ml (perl/j/32_perldelta. 1.2 444)
+++ 0.2(w)/pod/perldelta.pod Wed, 20 Oct 1999 19:54:27 +0000 ml (perl/j/32_perldelta. 1.2 444)
@@ -893,7 +893,25 @@

 =head2 DOS

-[TODO - Laszlo Molnar <laszlo.molnar@eth.ericsson.se>]
+=over 4
+
+=item *
+
+Perl now works with djgpp 2.02 (and 2.03 alpha).
+
+=item *
+
+Environment variable names are not converted to uppercase any more.
+
+=item *
+
+Wrong exit code from backticks now fixed.
+
+=item *
+
+This port is still using its own builtin globbing.
+
+=back

 =head2 OS/2

Index: 0.2/djgpp/djgppsed.sh
--- 0.2/djgpp/djgppsed.sh Wed, 20 Oct 1999 19:29:49 +0000 ml (perl/B/15_djgppsed.s 1.1.1.1 444)
+++ 0.2(w)/djgpp/djgppsed.sh Wed, 20 Oct 1999 19:52:44 +0000 ml (perl/B/15_djgppsed.s 1.1.1.1 444)
@@ -24,8 +24,6 @@
 SSTAT='s=\.\(stat\.\)=_\1=g'
 STMP2='s=tmp2=tm2=g'
 SPACKLIST='s=\.\(packlist\)=_\1=g'
-SDEFSUB='s=defsubs\.h=defsubsh=g'
-SPLPLI='s=PL/;=PL/i;=g'

 sed -e $SCONFIG -e $SGREPTMP -e $SECHOTMP -e $SDDC -e $SOUT -e 's=\.\( \./\$file\)$=sh\1=g' Configure |tr -d '\r' >s; mv -f s Configure
 sed -e $SEXISTS -e $SLIST -e $SCONFIG Makefile.SH |tr -d '\r' >s; mv -f s Makefile.SH
@@ -49,6 +47,3 @@
 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
-sed -e $SDEFSUB ext/B/Makefile.PL >s; mv -f s ext/B/Makefile.PL
-sed -e $SDEFSUB ext/B/B.xs >s; mv -f s ext/B/B.xs
-sed -e $SDEFSUB -e $SPLPLI ext/B/defsubsh.PL >s; mv -f s ext/B/defsubsh.PL
Index: 0.2/djgpp/configure.bat
--- 0.2/djgpp/configure.bat Wed, 20 Oct 1999 19:29:49 +0000 ml (perl/B/17_configure. 1.1.1.1 444)
+++ 0.2(w)/djgpp/configure.bat Wed, 20 Oct 1999 19:42:00 +0000 ml (perl/B/17_configure. 1.1.1.1 444)
@@ -29,7 +29,6 @@
 sh -c 'if test ! -d /tmp; then mkdir /tmp; fi'
 cp djgpp.c config.over ..
 cd ..
-mv ext/B/defsu* ext/B/defsubsh.PL
 echo Running sed...
 sh djgpp/djgppsed.sh

Index: 0.2/djgpp/config.over
--- 0.2/djgpp/config.over Wed, 20 Oct 1999 19:29:49 +0000 ml (perl/B/18_config.ove 1.1.1.1 444)
+++ 0.2(w)/djgpp/config.over Wed, 20 Oct 1999 19:48:21 +0000 ml (perl/B/18_config.ove 1.1.1.1 444)
@@ -28,7 +28,11 @@
      -e 's/thread/Thread/'\
      -e 's/byteload/ByteLoader/'\
      -e 's=devel/peek=Devel/Peek='\
-     -e 's=devel/dprof=Devel/DProf='
+     -e 's=devel/dprof=Devel/DProf='\
+     -e 's=file/=='\
+     -e 's=File/=='\
+     -e 's=glob=='\
+     -e 's=Glob=='
 }
 static_ext=$(repair "$static_ext")
 extensions=$(repair "$extensions")

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About