From: W.BRISCOE@ponl.com <W.BRISCOE@ponl.com>
Date: Tue, 16 Jul 2002 08:24:00 +0000 (+0100)
Subject: [ID 20020716.001] RC3 pp_sys.c #ifdef usage wrong
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c214f4ad8bbb376b6ebfcb9c9173169f2cc8986f;p=p5sagit%2Fp5-mst-13.2.git

[ID 20020716.001] RC3 pp_sys.c #ifdef usage wrong
Message-Id: <NXfa4c15-42476076@eur.ponl.com>

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

diff --git a/pp_sys.c b/pp_sys.c
index ba573be..06fe495 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -2178,7 +2178,9 @@ PP(pp_ioctl)
 	DIE(aTHX_ "ioctl is not implemented");
 #endif
     else
-#ifdef HAS_FCNTL
+#ifndef HAS_FCNTL
+      DIE(aTHX_ "fcntl is not implemented");
+#else
 #if defined(OS2) && defined(__EMX__)
 	retval = fcntl(PerlIO_fileno(IoIFP(io)), func, (int)s);
 #else
@@ -2201,11 +2203,8 @@ PP(pp_ioctl)
     else {
 	PUSHp(zero_but_true, ZBTLEN);
     }
-    RETURN;
-
-#else
-    DIE(aTHX_ "fcntl is not implemented");
 #endif
+    RETURN;
 }
 
 PP(pp_flock)