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

diff --git a/ext/IO/IO.xs b/ext/IO/IO.xs
index 4b896a5..bb64141 100644 (file)
--- 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;
            }