diff options
| author | W.BRISCOE@ponl.com <W.BRISCOE@ponl.com> | 2002-07-16 09:24:00 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-07-16 17:53:47 +0000 |
| commit | c214f4ad8bbb376b6ebfcb9c9173169f2cc8986f (patch) | |
| tree | 1d1b4cd3c870aad62026df4730ea575f1a5d2536 /pp_sys.c | |
| parent | 7b8dd722af72d0ca45650fb784c09763c0732e34 (diff) | |
| download | perl-c214f4ad8bbb376b6ebfcb9c9173169f2cc8986f.tar.gz | |
[ID 20020716.001] RC3 pp_sys.c #ifdef usage wrong
Message-Id: <NXfa4c15-42476076@eur.ponl.com>
p4raw-id: //depot/perl@17577
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 9 |
1 files changed, 4 insertions, 5 deletions
@@ -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) |