From 53e0272ff6711924ddbd8568bad2a01574e7b545 Mon Sep 17 00:00:00 2001 From: Steve Hay Date: Fri, 31 Aug 2007 08:54:12 +0000 Subject: [PATCH] Fix Win32 breakage (code before declaration) caused by #31766 p4raw-id: //depot/perl@31769 --- lib/ExtUtils/Constant/ProxySubs.pm | 24 +++++++++++++----------- 1 file changed, 13 insertions(+), 11 deletions(-) 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}, -- 2.7.4