redox/recipes/perl/perl.patch

diff -ru source/mg.c source-new/mg.c
--- source/mg.c	2017-06-30 14:03:22.000000000 -0700
+++ source-new/mg.c	2017-08-17 14:40:37.669507085 -0700
@@ -3034,16 +3034,16 @@
 #ifdef HAS_SETRESUID
         PERL_UNUSED_RESULT(setresuid(new_uid, (Uid_t)-1, (Uid_t)-1));
 #else
-	if (new_uid == PerlProc_geteuid()) {		/* special case $< = $> */
+//	if (new_uid == PerlProc_geteuid()) {		/* special case $< = $> */
 #ifdef PERL_DARWIN
 	    /* workaround for Darwin's setuid peculiarity, cf [perl #24122] */
 	    if (new_uid != 0 && PerlProc_getuid() == 0)
                 PERL_UNUSED_RESULT(PerlProc_setuid(0));
 #endif
-            PERL_UNUSED_RESULT(PerlProc_setuid(new_uid));
-	} else {
+//            PERL_UNUSED_RESULT(PerlProc_setuid(new_uid));
+//	} else {
 	    Perl_croak(aTHX_ "setruid() not implemented");
-	}
+//	}
 #endif
 #endif
 #endif
@@ -3067,11 +3067,11 @@
 #ifdef HAS_SETRESUID
 	PERL_UNUSED_RESULT(setresuid((Uid_t)-1, new_euid, (Uid_t)-1));
 #else
-	if (new_euid == PerlProc_getuid())		/* special case $> = $< */
-	    PERL_UNUSED_RESULT(PerlProc_setuid(new_euid));
-	else {
+//	if (new_euid == PerlProc_getuid())		/* special case $> = $< */
+//	    PERL_UNUSED_RESULT(PerlProc_setuid(new_euid));
+//	else {
 	    Perl_croak(aTHX_ "seteuid() not implemented");
-	}
+//	}
 #endif
 #endif
 #endif
@@ -3095,11 +3095,11 @@
 #ifdef HAS_SETRESGID
         PERL_UNUSED_RESULT(setresgid(new_gid, (Gid_t)-1, (Gid_t) -1));
 #else
-	if (new_gid == PerlProc_getegid())			/* special case $( = $) */
-	    PERL_UNUSED_RESULT(PerlProc_setgid(new_gid));
-	else {
+//	if (new_gid == PerlProc_getegid())			/* special case $( = $) */
+//	    PERL_UNUSED_RESULT(PerlProc_setgid(new_gid));
+//	else {
 	    Perl_croak(aTHX_ "setrgid() not implemented");
-	}
+//	}
 #endif
 #endif
 #endif
@@ -3178,11 +3178,11 @@
 #ifdef HAS_SETRESGID
 	PERL_UNUSED_RESULT(setresgid((Gid_t)-1, new_egid, (Gid_t)-1));
 #else
-	if (new_egid == PerlProc_getgid())			/* special case $) = $( */
-	    PERL_UNUSED_RESULT(PerlProc_setgid(new_egid));
-	else {
+//	if (new_egid == PerlProc_getgid())			/* special case $) = $( */
+//	    PERL_UNUSED_RESULT(PerlProc_setgid(new_egid));
+//	else {
 	    Perl_croak(aTHX_ "setegid() not implemented");
-	}
+//	}
 #endif
 #endif
 #endif
diff -ru source/perl.h source-new/perl.h
--- source/perl.h	2017-06-30 14:03:22.000000000 -0700
+++ source-new/perl.h	2017-08-17 13:14:01.806883580 -0700
@@ -1061,7 +1061,6 @@
 #ifndef PERL_MICRO
 #ifndef memchr
 #   ifndef HAS_MEMCHR
-#       define memchr(s,c,n) ninstr((char*)(s), ((char*)(s)) + n, &(c), &(c) + 1)
 #   endif
 #endif
 #endif
diff -ru source/pp_hot.c source-new/pp_hot.c
--- source/pp_hot.c	2017-06-30 14:03:22.000000000 -0700
+++ source-new/pp_hot.c	2017-08-17 13:16:20.234635700 -0700
@@ -1583,11 +1583,13 @@
 		PL_delaymagic &= ~DM_EUID;
 	    }
 #    endif /* HAS_SETEUID */
+#if 0
 	    if (PL_delaymagic & DM_UID) {
 		if (PL_delaymagic_uid != PL_delaymagic_euid)
 		    DIE(aTHX_ "No setreuid available");
 		PERL_UNUSED_RESULT(PerlProc_setuid(PL_delaymagic_uid));
 	    }
+#endif
 #  endif /* HAS_SETREUID */
 #endif /* HAS_SETRESUID */
 
@@ -1619,11 +1621,13 @@
 		PL_delaymagic &= ~DM_EGID;
 	    }
 #    endif /* HAS_SETEGID */
+#if 0
 	    if (PL_delaymagic & DM_GID) {
 		if (PL_delaymagic_gid != PL_delaymagic_egid)
 		    DIE(aTHX_ "No setregid available");
 		PERL_UNUSED_RESULT(PerlProc_setgid(PL_delaymagic_gid));
 	    }
+#endif
 #  endif /* HAS_SETREGID */
 #endif /* HAS_SETRESGID */
 
diff -ru source/pp_sys.c source-new/pp_sys.c
--- source/pp_sys.c	2017-06-30 14:03:22.000000000 -0700
+++ source-new/pp_sys.c	2017-08-17 14:57:00.983541027 -0700
@@ -2413,7 +2413,7 @@
     TAINT_PROPER(PL_op_desc[optype]);
 
     if (optype == OP_IOCTL)
-#ifdef HAS_IOCTL
+#if 0
 	retval = PerlLIO_ioctl(PerlIO_fileno(IoIFP(io)), func, s);
 #else
 	DIE(aTHX_ "ioctl is not implemented");
@@ -2705,7 +2705,7 @@
     if (!IoIFP(io))
 	goto nuts;
 
-    PUSHi( PerlSock_shutdown(PerlIO_fileno(IoIFP(io)), how) >= 0 );
+    PUSHi( 0 );
     RETURN;
 
   nuts:
@@ -2980,7 +2980,7 @@
         sv_setuid(PUSHmortal, PL_statcache.st_uid);
         sv_setgid(PUSHmortal, PL_statcache.st_gid);
 
-#ifdef USE_STAT_RDEV
+#if 0
 	mPUSHi(PL_statcache.st_rdev);
 #else
 	PUSHs(newSVpvs_flags("", SVs_TEMP));
@@ -4186,7 +4186,7 @@
 
 PP(pp_fork)
 {
-#ifdef HAS_FORK
+#if 1
     dSP; dTARGET;
     Pid_t childpid;
 #ifdef HAS_SIGPROCMASK
@@ -4332,7 +4332,7 @@
 	TAINT_PROPER("system");
     }
     PERL_FLUSHALL_FOR_CHILD;
-#if (defined(HAS_FORK) || defined(__amigaos4__)) && !defined(VMS) && !defined(OS2) || defined(PERL_MICRO)
+#if 1
     {
 #ifdef __amigaos4__
         struct UserData userdata;
@@ -5582,7 +5582,7 @@
 
 PP(pp_ggrent)
 {
-#ifdef HAS_GROUP
+#if 0
     dSP;
     const I32 which = PL_op->op_type;
     const struct group *grent;
diff -ru source/util.c source-new/util.c
--- source/util.c	2017-06-30 14:03:22.000000000 -0700
+++ source-new/util.c	2017-08-17 14:47:03.963804576 -0700
@@ -2842,7 +2842,7 @@
 #endif /* HAS_FORK */
 }
 
-#ifndef HAS_DUP2
+#if 0
 int
 dup2(int oldfd, int newfd)
 {