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

[Steve Hay]

Change 31769 by [EMAIL PROTECTED] on 2007/08/31 08:54:12

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

Affected files ...

... //depot/perl/lib/ExtUtils/Constant/ProxySubs.pm#19 edit

Differences ...

==== //depot/perl/lib/ExtUtils/Constant/ProxySubs.pm#19 (text) ====
Index: perl/lib/ExtUtils/Constant/ProxySubs.pm
--- perl/lib/ExtUtils/Constant/ProxySubs.pm#18~31766~   2007-08-30 
07:01:25.000000000 -0700
+++ perl/lib/ExtUtils/Constant/ProxySubs.pm     2007-08-31 01:54:12.000000000 
-0700
@@ -9,7 +9,7 @@
 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 @@
 #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 @@
 
        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}, 
End of Patch.