From: Steve Hay <SteveHay@planit.com>
Date: Fri, 31 Aug 2007 08:54:12 +0000 (+0000)
Subject: Fix Win32 breakage (code before declaration) caused by #31766
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=53e0272ff6711924ddbd8568bad2a01574e7b545;p=p5sagit%2Fp5-mst-13.2.git

Fix Win32 breakage (code before declaration) caused by #31766

p4raw-id: //depot/perl@31769
---

diff --git a/lib/ExtUtils/Constant/ProxySubs.pm b/lib/ExtUtils/Constant/ProxySubs.pm
index 4fd73ef..9bcf110 100644
--- a/lib/ExtUtils/Constant/ProxySubs.pm
+++ b/lib/ExtUtils/Constant/ProxySubs.pm
@@ -9,7 +9,7 @@ require ExtUtils::Constant::XS;
 use ExtUtils::Constant::Utils qw(C_stringify);
 use ExtUtils::Constant::XS qw(%XS_TypeSet);
 
-$VERSION = '0.04';
+$VERSION = '0.05';
 @ISA = 'ExtUtils::Constant::XS';
 
 %type_to_struct =
@@ -250,16 +250,7 @@ BOOT:
 #endif
     HV *symbol_table = get_hv("$symbol_table", TRUE);
 #ifndef SYMBIAN
-    /* When we create the 'missing' hash, it generates a 'used only once'
-     * warning.  Therefore, turn off warnings while we do this.
-     */
     HV *${c_subname}_missing;
-    {
-        const bool warn_tmp = PL_dowarn;
-        PL_dowarn = 0;
-        ${c_subname}_missing = get_hv("${symbol_table}${c_subname}_M!55!NG", TRUE);
-        PL_dowarn = warn_tmp;
-    }
 #endif
 EOBOOT
 
@@ -314,12 +305,23 @@ EOBOOT
 
 	print $xs_fh <<"EOBOOT";
 	const struct $struct_type *$iterator{$type} = $array_name;
-
 EOBOOT
     }
 
     delete $found->{''};
 
+    print $xs_fh <<"EOBOOT";
+#ifndef SYMBIAN
+	/* When we create the 'missing' hash, it generates a 'used only once'
+	 * warning.  Therefore, turn off warnings while we do this.
+	 */
+	const bool warn_tmp = PL_dowarn;
+	PL_dowarn = 0;
+	${c_subname}_missing = get_hv("${symbol_table}${c_subname}_M!55!NG", TRUE);
+	PL_dowarn = warn_tmp;
+#endif
+EOBOOT
+
     my $add_symbol_subname = $c_subname . '_add_symbol';
     foreach my $type (sort keys %$found) {
 	print $xs_fh $self->boottime_iterator($type, $iterator{$type},