[win32] fix xsubpp bug in SETMAGIC code

p4raw-id: //depot/win32/perl@514

diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp
index 6fe16dc..b8ec042 100755 (executable)
--- a/lib/ExtUtils/xsubpp
+++ b/lib/ExtUtils/xsubpp
@@ -388,11 +388,11 @@ sub OUTPUT_handler {
            unless defined($args_match{$outarg});
        blurt("Error: No input definition for OUTPUT argument '$outarg' - ignored"), next
            unless defined $var_types{$outarg} ;
+       $var_num = $args_match{$outarg};
        if ($outcode) {
            print "\t$outcode\n";
-           print "\tSvSETMAGIC(ST(" . $var_num-1 . "));\n" if $DoSetMagic;
+           print "\tSvSETMAGIC(ST(" , $var_num-1 , "));\n" if $DoSetMagic;
        } else {
-           $var_num = $args_match{$outarg};
            &generate_output($var_types{$outarg}, $var_num, $outarg, $DoSetMagic);
        }
     }