From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Sun, 26 Sep 1999 16:52:31 +0000 (-0400)
Subject: Finalize change #4232.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9bea678f36dc293400ada67aa122ef456a9dcf74;p=p5sagit%2Fp5-mst-13.2.git

Finalize change #4232.
To: Jarkko Hietaniemi <jhi@iki.fi>
Cc: gsar@activestate.com, Mailing list Perl5 <perl5-porters@perl.org>
Subject: Re: xsubpp change breaks B, DB_File, POSIX builds
Message-ID: <19990926165230.A26933@monk.mps.ohio-state.edu>

p4raw-link: @4232 on //depot/cfgperl: ddf6bed10156a8078a4c99edf2247bc17af67666

p4raw-id: //depot/cfgperl@4240
---

diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp
index 3463e00..a8508b3 100755
--- a/lib/ExtUtils/xsubpp
+++ b/lib/ExtUtils/xsubpp
@@ -390,7 +390,7 @@ sub INPUT_handler {
 	  if ($name_printed) {
 	    print ";\n";
 	  } else {
-	    print "\t$var_name_after;\n";
+	    print "\t$var_name;\n";
 	  }
 	} elsif ($var_init =~ /\S/) {
 	    &output_init($var_type, $var_num, $var_name, $var_init, $name_printed);