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/comp/cpp.t.old	Tue Apr 23 22:38:14 1991
--- t/comp/cpp.t	Thu Nov 14 08:57:06 1991
***************
*** 15,25 ****
  	print "not ok 2\n";
  #endif
  
! open(TRY,">Comp.cpp.tmp") || die "Can't open temp perl file.";
  
  ($prog = <<'END') =~ s/X//g;
  X$ok = "not ok 3\n";
! X#include "Comp.cpp.inc"
  X#ifdef OK
  X$ok = OK;
  X#endif
--- 15,25 ----
  	print "not ok 2\n";
  #endif
  
! open(TRY,">Comp_cpp.tmp") || die "Can't open temp perl file.";
  
  ($prog = <<'END') =~ s/X//g;
  X$ok = "not ok 3\n";
! X#include "Comp_cpp.inc"
  X#ifdef OK
  X$ok = OK;
  X#endif
***************
*** 28,39 ****
  print TRY $prog;
  close TRY;
  
! open(TRY,">Comp.cpp.inc") || (die "Can't open temp include file.");
  print TRY '#define OK "ok 3\n"' . "\n";
  close TRY;
  
  $pwd=`pwd`;
  $pwd =~ s/\n//;
! $x = `./perl -P Comp.cpp.tmp`;
  print $x;
! unlink "Comp.cpp.tmp", "Comp.cpp.inc";
--- 28,39 ----
  print TRY $prog;
  close TRY;
  
! open(TRY,">Comp_cpp.inc") || (die "Can't open temp include file.");
  print TRY '#define OK "ok 3\n"' . "\n";
  close TRY;
  
  $pwd=`pwd`;
  $pwd =~ s/\n//;
! $x = `./perl -P Comp_cpp.tmp`;
  print $x;
! unlink "Comp_cpp.tmp", "Comp_cpp.inc";
