diff options
Diffstat (limited to 'contrib/perl5/ext/IO/IO.xs')
| -rw-r--r-- | contrib/perl5/ext/IO/IO.xs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/contrib/perl5/ext/IO/IO.xs b/contrib/perl5/ext/IO/IO.xs index a434cca..300581e 100644 --- a/contrib/perl5/ext/IO/IO.xs +++ b/contrib/perl5/ext/IO/IO.xs @@ -111,7 +111,8 @@ fsetpos(handle, pos) SV * pos CODE: char *p; - if (handle && (p = SvPVx(pos, PL_na)) && PL_na == sizeof(Fpos_t)) + STRLEN n_a; + if (handle && (p = SvPVx(pos, n_a)) && n_a == sizeof(Fpos_t)) #ifdef PerlIO RETVAL = PerlIO_setpos(handle, (Fpos_t*)p); #else |
