diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-21 14:54:24 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-21 14:54:24 +0000 |
| commit | 4808266b7a2aefa68f681e0378316e43728b49d8 (patch) | |
| tree | 8e75f609dcf0acc6649da47fb7cece8567236165 /pp_sys.c | |
| parent | 44914417440ff636ff6c83c30d188eb9a75336d3 (diff) | |
| download | perl-4808266b7a2aefa68f681e0378316e43728b49d8.tar.gz | |
microperl: if DIEing on no-functionality, the has-functionality
would be unreachable code.
p4raw-id: //depot/perl@16723
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -2182,9 +2182,6 @@ PP(pp_ioctl) #else retval = fcntl(PerlIO_fileno(IoIFP(io)), func, s); #endif -#else - DIE(aTHX_ "fcntl is not implemented"); -#endif if (SvPOK(argsv)) { if (s[SvCUR(argsv)] != 17) @@ -2203,6 +2200,10 @@ PP(pp_ioctl) PUSHp(zero_but_true, ZBTLEN); } RETURN; + +#else + DIE(aTHX_ "fcntl is not implemented"); +#endif } PP(pp_flock) |