diff options
| author | Sebastian Steinlechner <steinlechner@gmx.net> | 2006-09-18 03:38:31 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-09-18 09:04:02 +0000 |
| commit | 9a4997407636e1eeb1029b89852e85209dd9461d (patch) | |
| tree | 33b3bf7d35c2d4aa3591b5a86700bdde62db108e /ext/IO/IO.xs | |
| parent | 1d9c78c6de744b5c7eec4470968743afe4f03acd (diff) | |
| download | perl-9a4997407636e1eeb1029b89852e85209dd9461d.tar.gz | |
Fix declaration-after-statement problem
Subject: [bug] IO::Socket's IO.xs fails to compile
Message-ID: <450DDC77.2060405@gmx.net>
p4raw-id: //depot/perl@28866
Diffstat (limited to 'ext/IO/IO.xs')
| -rw-r--r-- | ext/IO/IO.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/IO/IO.xs b/ext/IO/IO.xs index 4b896a5649..bb64141a1c 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; if (PerlIO_getpos(handle, &pos) != 0) { ST(0) = &PL_sv_undef; } |