diff options
| author | Nicolas R <atoomic@cpan.org> | 2020-08-12 12:28:48 -0500 |
|---|---|---|
| committer | ℕicolas ℝ <nicolas@atoomic.org> | 2020-08-17 09:13:28 -0600 |
| commit | d64e31fb4d66ea1f7a2fb8b3e5d9a058560e129a (patch) | |
| tree | d6af715ff4d4592dae61fa8abf087c68da54676f /dist/IO | |
| parent | 63b6fce5821cf1310f5541becaca9834b2a08f31 (diff) | |
| download | perl-d64e31fb4d66ea1f7a2fb8b3e5d9a058560e129a.tar.gz | |
dist/IO: use PERL_VERSION compare macro
Note: VERSION was already bumped as part of e6aa2bc12e9cf0a0
Diffstat (limited to 'dist/IO')
| -rw-r--r-- | dist/IO/IO.xs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/dist/IO/IO.xs b/dist/IO/IO.xs index fb009774c4..f0b161cd01 100644 --- a/dist/IO/IO.xs +++ b/dist/IO/IO.xs @@ -194,7 +194,7 @@ fgetpos(handle) CODE: if (handle) { #ifdef PerlIO -#if PERL_VERSION < 8 +#if PERL_VERSION_LT(5,8,0) Fpos_t pos; ST(0) = sv_newmortal(); if (PerlIO_getpos(handle, &pos) != 0) { @@ -214,7 +214,7 @@ fgetpos(handle) if (fgetpos(handle, &pos)) { ST(0) = &PL_sv_undef; } else { -# if PERL_VERSION >= 11 +# if PERL_VERSION_GE(5,11,0) ST(0) = newSVpvn_flags((char*)&pos, sizeof(Fpos_t), SVs_TEMP); # else ST(0) = sv_2mortal(newSVpvn((char*)&pos, sizeof(Fpos_t))); @@ -234,7 +234,7 @@ fsetpos(handle, pos) CODE: if (handle) { #ifdef PerlIO -#if PERL_VERSION < 8 +#if PERL_VERSION_LT(5,8,0) char *p; STRLEN len; if (SvOK(pos) && (p = SvPV(pos,len)) && len == sizeof(Fpos_t)) { |