From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 12 Feb 1998 18:16:09 +0000 (+0000)
Subject: [win32] fix xsubpp bug in SETMAGIC code
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f78230ad82b8360ff830106dd83fb972b07cb739;p=p5sagit%2Fp5-mst-13.2.git

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