diff options
| author | Steve Hay <SteveHay@planit.com> | 2006-11-01 13:07:37 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2006-11-01 13:07:37 +0000 |
| commit | 86413ec05edbed389a8f74a82fd028f2d16de4b8 (patch) | |
| tree | 9abb24fb7f353c0288ce8346691bc94001c8b2f5 /ext/IO | |
| parent | 63ad731da6e7c95184317616677400634991d7a4 (diff) | |
| download | perl-86413ec05edbed389a8f74a82fd028f2d16de4b8.tar.gz | |
Silence VC++ compiler warnings
See: http://www.nntp.perl.org/group/perl.daily-build.reports/42208
p4raw-id: //depot/perl@29180
Diffstat (limited to 'ext/IO')
| -rw-r--r-- | ext/IO/IO.xs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/IO/IO.xs b/ext/IO/IO.xs index bb64141a1c..eac8a64e25 100644 --- a/ext/IO/IO.xs +++ b/ext/IO/IO.xs @@ -132,10 +132,10 @@ fgetpos(handle) InputStream handle CODE: if (handle) { - Fpos_t pos; #ifdef PerlIO - ST(0) = sv_newmortal(); #if PERL_VERSION < 8 + Fpos_t pos; + ST(0) = sv_newmortal(); if (PerlIO_getpos(handle, &pos) != 0) { ST(0) = &PL_sv_undef; } @@ -143,6 +143,7 @@ fgetpos(handle) sv_setpvn(ST(0), (char *)&pos, sizeof(Fpos_t)); } #else + ST(0) = sv_newmortal(); if (PerlIO_getpos(handle, ST(0)) != 0) { ST(0) = &PL_sv_undef; } |