diff -cr perl/eval.c perl.msdos/eval.c
*** perl/eval.c	Sat Jan 12 15:10:19 1991
--- perl.msdos/eval.c	Sun Jan 10 12:58:54 1999
***************
*** 1366,1371 ****
--- 1366,1372 ----
  #endif
  	goto donumset;
      case O_ALARM:
+ #ifndef MSDOS
  	if (maxarg < 1)
  	    tmps = str_get(stab_val(defstab));
  	else
***************
*** 1377,1382 ****
--- 1378,1387 ----
  	    goto say_undef;
  	value = (double)anum;
  	goto donumset;
+ #else
+ 	fatal("Unsupported function fork");
+ 	break;
+ #endif
      case O_SLEEP:
  	if (maxarg < 1)
  	    tmps = Nullch;
diff -cr perl/msdos/Makefile perl.msdos/msdos/Makefile
*** perl/msdos/Makefile	Sat Jan 12 15:09:22 1991
--- perl.msdos/msdos/Makefile	Sun Jan 10 12:58:58 1999
***************
*** 29,35 ****
  YFLAGS=-d
  
  # Manual pages
! MAN=perlman.1 perlman.2 perlman.3 perlman.4
  
  CC=cc
  # Cflags for the files that break under the optimiser
--- 29,35 ----
  YFLAGS=-d
  
  # Manual pages
! MAN=perl_man.1 perl_man.2 perl_man.3 perl_man.4
  
  CC=cc
  # Cflags for the files that break under the optimiser
***************
*** 45,55 ****
  perl.exe: $(OBJ)
  	echo array+cmd+cons+consarg+doarg+doio+dolist+dump+ >perl.arp
  	echo eval+form+hash+perl+perly+regcomp+regexec+ >>perl.arp
! 	echo stab+str+toke+util+msdos+popen+directory+\lib\setargv >>perl.arp
  	echo perl.exe >>perl.arp
  	echo nul >>perl.arp
  	echo /stack:32767 /NOE >>perl.arp
! 	link @perl.arp
  
  glob.exe: glob.c
  	$(CC) glob.c \lib\setargv.obj -link /NOE
--- 45,55 ----
  perl.exe: $(OBJ)
  	echo array+cmd+cons+consarg+doarg+doio+dolist+dump+ >perl.arp
  	echo eval+form+hash+perl+perly+regcomp+regexec+ >>perl.arp
! 	echo stab+str+toke+util+msdos+popen+director+\lib\setargv >>perl.arp
  	echo perl.exe >>perl.arp
  	echo nul >>perl.arp
  	echo /stack:32767 /NOE >>perl.arp
! 	link @perl.arp;
  
  glob.exe: glob.c
  	$(CC) glob.c \lib\setargv.obj -link /NOE
***************
*** 64,69 ****
--- 64,70 ----
  dolist.obj: dolist.c
  dump.obj: dump.c
  eval.obj: eval.c evalargs.xc
+ 	$(CC) $(CPLAIN) -c eval.c
  form.obj: form.c
  hash.obj: hash.c
  perl.obj: perl.y
diff -cr perl/msdos/config.h perl.msdos/msdos/config.h
*** perl/msdos/config.h	Sat Jan 12 15:08:26 1991
--- perl.msdos/msdos/config.h	Sun Jan 10 12:58:58 1999
***************
*** 470,480 ****
  /* SIG_NAME:
   *	This symbol contains an list of signal names in order.
   */
! #define SIG_NAME
!  "ZERO","HUP","INT","QUIT","ILL","TRAP","IOT","EMT","FPE","KILL","BUS","SEGV","S
! YS","PIPE","ALRM","TERM","URG","STOP","TSTP","CONT","CHLD","TTIN","TTOU","IO","X
! CPU","XFSZ","VTALRM","PROF","WINCH","USR1","USR2"		/**/
! 
  /* STDCHAR:
   *	This symbol is defined to be the type of char used in stdio.h.
   *	It has the values "unsigned char" or "char".
--- 470,476 ----
  /* SIG_NAME:
   *	This symbol contains an list of signal names in order.
   */
! #define SIG_NAME "ZERO","HUP","INT","QUIT","ILL","TRAP","IOT","EMT","FPE","KILL","BUS","SEGV","SYS","PIPE","ALRM","TERM","URG","STOP","TSTP","CONT","CHLD","TTIN","TTOU","IO","XCPU","XFSZ","VTALRM","PROF","WINCH","USR1","USR2"		/**/ 
  /* STDCHAR:
   *	This symbol is defined to be the type of char used in stdio.h.
   *	It has the values "unsigned char" or "char".
***************
*** 538,540 ****
--- 534,539 ----
  #define S_ISUID 0
  #define S_ISGID 0
  #define CASTNEGFLOAT
+ 
+ #define S_ISBLK(x) 0
+ #define S_ISFIFO(x) 0
diff -cr perl/msdos/msdos.c perl.msdos/msdos/msdos.c
*** perl/msdos/msdos.c	Sat Jan 12 15:09:07 1991
--- perl.msdos/msdos/msdos.c	Sun Jan 10 12:58:58 1999
***************
*** 157,162 ****
--- 157,174 ----
  }
  
  int
+ setuid(int u)
+ {
+ 	return 0;
+ }
+ 
+ int
+ setgid(int u)
+ {
+ 	return 0;
+ }
+ 
+ int
  getegid(void)
  {
  	return 0;
***************
*** 244,246 ****
--- 256,260 ----
      Safefree(argv);
      return status;
  }
+ 
+ void userinit() { }
diff -cr perl/perly.c perl.msdos/perly.c
*** perl/perly.c	Sat Jan 12 15:08:22 1991
--- perl.msdos/perly.c	Sun Jan 10 12:58:56 1999
***************
*** 1115,1123 ****
  	fputs("\n\
  Perl may be copied only under the terms of the GNU General Public License,\n\
  a copy of which can be found with the Perl 3.0 distribution kit.\n",stdout);
- #ifdef MSDOS
-         usage(origargv[0]);
- #endif
  	exit(0);
      case 'w':
  	dowarn = TRUE;
--- 1115,1120 ----