From: Sebastian Steinlechner <steinlechner@gmx.net>
Date: Mon, 18 Sep 2006 01:38:31 +0000 (+0200)
Subject: Fix declaration-after-statement problem
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9a4997407636e1eeb1029b89852e85209dd9461d;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;
 	    }