This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Lexicalize more variables
authorJames E. Keenan <jkeenan@cpan.org>
Sat, 13 Mar 2010 03:41:02 +0000 (22:41 -0500)
committerSteffen Mueller <smueller@cpan.org>
Tue, 12 Jul 2011 18:53:50 +0000 (20:53 +0200)
Move 6 more variables out of 'our' status and into 'my' status
inside process_file().

dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm

index 5900f7f..570a305 100644 (file)
@@ -29,13 +29,11 @@ our (
   $hiertype, $WantPrototypes, $WantVersionChk, $WantLineNumbers, $filepathname, 
   $dir, $filename, %IncludedFiles, %input_expr, %output_expr, 
   %type_kind, %proto_letter, $BLOCK_re, $lastline, $lastline_no, $Package, 
-  $Prefix,
-  
-  @line, @BootCode, %args_match, %defaults, %var_types, %arg_list, @proto_arg,
-  $processing_arg_with_types, %argtype_seen, @outlist, %in_out, %lengthof,
-  $proto_in_this_xsub, $scope_in_this_xsub, $interface, $prepush_done,
-  $interface_macro, $interface_macro_set, $ProtoThisXSUB, $ScopeThisXSUB,
-  $xsreturn, @line_no, $ret_type, $func_header, $orig_args,
+  $Prefix, @line, %args_match, %defaults, %var_types, %arg_list, @proto_arg,
+  $processing_arg_with_types, %argtype_seen, %in_out, %lengthof, 
+  $proto_in_this_xsub, $scope_in_this_xsub, $interface, 
+  $interface_macro, $interface_macro_set, $ProtoThisXSUB, $ScopeThisXSUB, 
+  @line_no, $ret_type, 
 );
 
 sub process_file {
@@ -379,6 +377,7 @@ EOF
   $lastline    = $_;
   $lastline_no = $.;
 
+  my (@BootCode, @outlist, $prepush_done, $xsreturn, $func_header, $orig_args, );
  PARAGRAPH:
   while (fetch_para()) {
     # Print initial preprocessor statements and blank lines