From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 12 Jun 2001 23:59:10 +0000 (+0000)
Subject: MPE/iX tweaks from Mark Bixby.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=611857dafc005c6635506b1e2b7d9fe39988b812;p=p5sagit%2Fp5-mst-13.2.git

MPE/iX tweaks from Mark Bixby.

p4raw-id: //depot/perl@10539
---

diff --git a/hints/mpeix.sh b/hints/mpeix.sh
index d2ca5f0..f6fd44c 100644
--- a/hints/mpeix.sh
+++ b/hints/mpeix.sh
@@ -92,6 +92,7 @@ d_link='undef'
 d_mblen='define'
 d_mbstowcs='define'
 d_mbtowc='define'
+d_memchr='define'
 d_memcmp='define'
 d_memcpy='define'
 d_memmove='define'
diff --git a/mpeix/mpeixish.h b/mpeix/mpeixish.h
index 5624621..8dba0a8 100644
--- a/mpeix/mpeixish.h
+++ b/mpeix/mpeixish.h
@@ -137,3 +137,5 @@
 #undef PRPASSWD
 #undef PWAGE
 #undef PWCOMMENT
+
+#define ITIMER_REAL 0
diff --git a/util.c b/util.c
index 81f413e..d9e9c65 100644
--- a/util.c
+++ b/util.c
@@ -4980,6 +4980,7 @@ Perl_sv_realpath(pTHX_ SV *sv, char *path, STRLEN len)
 
     return TRUE;
 #else
+    {
     DIR *parent;
     Direntry_t *dp;
     char dotdots[MAXPATHLEN] = { 0 };
@@ -5082,6 +5083,7 @@ Perl_sv_realpath(pTHX_ SV *sv, char *path, STRLEN len)
     SvPOK_only(sv);
 
     return TRUE;
+    }
 #endif
 #else
     return FALSE;