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 (executable)
--- 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);