MS-DOS patches to perl.
Apply this patch to the standard perl source, version 4, patch level 19,
using "patch -p."  Do this in the root directory of the perl source
distribution.

You can cat all these patches together and pipe the output to patch -p.

Len Reed
Holos Software, Inc.
..!gatech!holos0!lbr
holos0!lbr@gatech.edu
--------------------------------------
*** t/op/magic.t.old	Tue Apr 23 23:48:48 1991
--- t/op/magic.t	Thu Nov 14 08:57:14 1991
***************
*** 6,14 ****
  
  print "1..5\n";
  
! eval '$ENV{"foo"} = "hi there";';	# check that ENV is inited inside eval
! if (`echo \$foo` eq "hi there\n") {print "ok 1\n";} else {print "not ok 1\n";}
  
  unlink 'ajslkdfpqjsjfk';
  $! = 0;
  open(foo,'ajslkdfpqjsjfk');
--- 6,17 ----
  
  print "1..5\n";
  
! eval('umask');	# won't work on MS-DOS
! $msdos = $@;
  
+ eval '$ENV{"FOO"} = "hi there";';	# check that ENV is inited inside eval
+ if (`echo \$FOO` eq "hi there\n") {print "ok 1\n";} else {print "not ok 1\n";}
+ 
  unlink 'ajslkdfpqjsjfk';
  $! = 0;
  open(foo,'ajslkdfpqjsjfk');
***************
*** 16,21 ****
--- 19,32 ----
  
  # the next tests are embedded inside system simply because sh spits out
  # a newline onto stderr when a child process kills itself with SIGINT.
+ 
+ if ($msdos) {
+ 	# Can't kill in MS-DOS.  Could do SIG_INT from keyboard test
+ 	# to make sure swap files are deleted and all is well.  That
+ 	# was tested by hand. -L. Reed
+     print "ok 3\nok 4\nok 5\n";
+     exit;
+ }
  
  system './perl',
  '-e', '$| = 1;		# command buffering',
