diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2003-05-17 04:53:06 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2003-05-17 04:53:06 +0000 |
| commit | 6652bd42f22f15f457e3753f6c9a7ef4c35fc4cf (patch) | |
| tree | 580fa57b1ff462ce88818d4f8e444ccca6acf10f /pp_sys.c | |
| parent | 1c8780751e85c3ece441fc8ecdff2f1dc99f9906 (diff) | |
| download | perl-6652bd42f22f15f457e3753f6c9a7ef4c35fc4cf.tar.gz | |
change#16723 broke the ioctl() return value on platforms
that have ioctl() but no fcntl() (e.g. windows)
change#17577 then attempted to fix the bustage, but got
it wrong
p4raw-link: @17577 on //depot/perl: c214f4ad8bbb376b6ebfcb9c9173169f2cc8986f
p4raw-link: @16723 on //depot/perl: 4808266b7a2aefa68f681e0378316e43728b49d8
p4raw-id: //depot/perl@19534
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -2175,7 +2175,9 @@ PP(pp_ioctl) #else retval = fcntl(PerlIO_fileno(IoIFP(io)), func, s); #endif +#endif +#if defined(HAS_IOCTL) || defined(HAS_FCNTL) if (SvPOK(argsv)) { if (s[SvCUR(argsv)] != 17) DIE(aTHX_ "Possible memory corruption: %s overflowed 3rd argument", |