[PATCH 5.5.650] dos-djgpp update

Hi P5P,

this patch fixes some problems on dos-djgpp. Mainly globbing related -
I'd still like to use the djgpp specific builtin globbing - so perl.exe
could work stand alone.

Laszlo

Index: 0.4/t/lib/io_unix.t
--- 0.4/t/lib/io_unix.t Sat, 05 Feb 2000 19:24:54 +0100 ml (perl/f/51_io_unix.t 1.2 555)
+++ 0.4(w)/t/lib/io_unix.t Mon, 21 Feb 2000 23:08:27 +0100 ml (perl/f/51_io_unix.t 1.2 555)
@@ -8,6 +8,7 @@
     # ``use IO::Socket'' executes too early below in the os2 block
     if ($^O eq 'dos') {
         print "1..0 # Skip: no fork\n";
+	exit 0;
     }
 }

Index: 0.4/djgpp/djgppsed.sh
--- 0.4/djgpp/djgppsed.sh Sat, 05 Feb 2000 19:24:54 +0100 ml (perl/B/15_djgppsed.s 1.1.1.2 444)
+++ 0.4(w)/djgpp/djgppsed.sh Mon, 21 Feb 2000 22:22:32 +0100 ml (perl/B/15_djgppsed.s 1.1.1.2 444)
@@ -24,6 +24,7 @@
 SSTAT='s=\.\(stat\.\)=_\1=g'
 STMP2='s=tmp2=tm2=g'
 SPACKLIST='s=\.\(packlist\)=_\1=g'
+SDOTTMP='s=\.tmp=_tmp=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
@@ -33,7 +34,7 @@
 sed -e $SPOD2HTML lib/Pod/Html.pm |tr -d '\r' >s; mv -f s lib/Pod/Html.pm
 sed -e $SCC -e $SLIST -e $SFILEC -e $SCOR -e $SDEPTMP -e $SHSED makedepend.SH |tr -d '\r' >s; mv -f s makedepend.SH
 sed -e $SCPP t/comp/cpp.aux |tr -d '\r' >s; mv -f s t/comp/cpp.aux
-sed -e $SARGV t/io/argv.t >s; mv -f s t/io/argv.t
+sed -e $SARGV -e $SDOTTMP t/io/argv.t >s; mv -f s t/io/argv.t
 sed -e $SABC t/io/inplace.t >s; mv -f s t/io/inplace.t
 sed -e $SDBMX t/lib/anydbm.t >s; mv -f s t/lib/anydbm.t
 sed -e $SDBMX -e $SDBHASH t/lib/gdbm.t >s; mv -f s t/lib/gdbm.t
Index: 0.4/djgpp/configure.bat
--- 0.4/djgpp/configure.bat Sat, 05 Feb 2000 19:24:54 +0100 ml (perl/B/17_configure. 1.1.1.2 444)
+++ 0.4(w)/djgpp/configure.bat Mon, 21 Feb 2000 22:23:27 +0100 ml (perl/B/17_configure. 1.1.1.2 444)
@@ -33,5 +33,5 @@
 sh djgpp/djgppsed.sh
 
 echo Running Configure...
-sh Configure %1 %2 %3 %4 %5 %6 %7 %8 %9
+sh Configure -DPERL_EXTERNAL_GLOB %1 %2 %3 %4 %5 %6 %7 %8 %9
 :end
Index: 0.4/djgpp/config.over
--- 0.4/djgpp/config.over Sat, 05 Feb 2000 19:24:54 +0100 ml (perl/B/18_config.ove 1.1.1.2 444)
+++ 0.4(w)/djgpp/config.over Mon, 21 Feb 2000 21:53:15 +0100 ml (perl/B/18_config.ove 1.1.1.2 444)
@@ -29,6 +29,7 @@
      -e 's/byteload/ByteLoader/'\
      -e 's=devel/peek=Devel/Peek='\
      -e 's=devel/dprof=Devel/DProf='\
+     -e 's=sys/sys=Sys/Sys='\
      -e 's=file/=='\
      -e 's=File/=='\
      -e 's=glob=='\
Index: 0.4/t/lib/glob-taint.t
--- 0.4/t/lib/glob-taint.t Wed, 20 Oct 1999 21:29:49 +0200 ml (perl/D/36_glob-taint 1.1 664)
+++ 0.4(w)/t/lib/glob-taint.t Mon, 21 Feb 2000 23:07:57 +0100 ml (perl/D/36_glob-taint 1.1 664)
@@ -3,6 +3,10 @@
 BEGIN {
     chdir 't' if -d 't';
     unshift @INC, '../lib';
+    if ($Config{'extensions'} !~ /\bFile\/Glob\b/i) {
+        print "1..0\n";
+        exit 0;
+    }
     print "1..2\n";
 }
 END {
Index: 0.4/t/lib/glob-global.t
--- 0.4/t/lib/glob-global.t Sat, 05 Feb 2000 19:24:54 +0100 ml (perl/D/37_glob-globa 1.2 664)
+++ 0.4(w)/t/lib/glob-global.t Mon, 21 Feb 2000 23:07:48 +0100 ml (perl/D/37_glob-globa 1.2 664)
@@ -3,7 +3,10 @@
 BEGIN {
     chdir 't' if -d 't';
     unshift @INC, '../lib';
-
+    if ($Config{'extensions'} !~ /\bFile\/Glob\b/i) {
+        print "1..0\n";
+        exit 0;
+    }
     print "1..10\n";
 }
 END {
Index: 0.4/t/lib/glob-basic.t
--- 0.4/t/lib/glob-basic.t Sat, 05 Feb 2000 19:24:54 +0100 ml (perl/D/38_glob-basic 1.2 664)
+++ 0.4(w)/t/lib/glob-basic.t Mon, 21 Feb 2000 23:07:31 +0100 ml (perl/D/38_glob-basic 1.2 664)
@@ -3,7 +3,11 @@
 BEGIN {
     chdir 't' if -d 't';
     unshift @INC, '../lib';
-
+    require Config; import Config;
+    if ($Config{'extensions'} !~ /\bFile\/Glob\b/i) {
+        print "1..0\n";
+        exit 0;
+    }
     print "1..9\n";
 }
 END {
Index: 0.4/t/lib/glob-case.t
--- 0.4/t/lib/glob-case.t Sat, 05 Feb 2000 19:24:54 +0100 ml (perl/F/1_glob-case. 1.1 664)
+++ 0.4(w)/t/lib/glob-case.t Mon, 21 Feb 2000 23:07:39 +0100 ml (perl/F/1_glob-case. 1.1 664)
@@ -3,6 +3,10 @@
 BEGIN {
     chdir 't' if -d 't';
     unshift @INC, '../lib';
+    if ($Config{'extensions'} !~ /\bFile\/Glob\b/i) {
+        print "1..0\n";
+        exit 0;
+    }
     print "1..7\n";
 }
 END {

End of Patch

• [PATCH 5.5.650] dos-djgpp update by Laszlo Molnar