This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Now that ExtUtils::ParseXS requires 5.006, we can replace the foreach
authorNicholas Clark <nick@ccl4.org>
Wed, 31 Oct 2007 19:44:48 +0000 (19:44 +0000)
committerNicholas Clark <nick@ccl4.org>
Wed, 31 Oct 2007 19:44:48 +0000 (19:44 +0000)
on keys and lookup in the loop with a foreach on values, as values is
"now" an LVALUE iterator.

p4raw-id: //depot/perl@32209

lib/ExtUtils/ParseXS.pm

index fd762f8..4c519fc 100644 (file)
@@ -18,7 +18,7 @@ my(@XSStack); # Stack of conditionals and INCLUDEs
 my($XSS_work_idx, $cpp_next_tmp);
 
 use vars qw($VERSION);
-$VERSION = '2.18';
+$VERSION = '2.18_01';
 
 use vars qw(%input_expr %output_expr $ProtoUsed @InitFileCode $FH $proto_re $Overload $errors $Fallback
            $cplusplus $hiertype $WantPrototypes $WantVersionChk $except $WantLineNumbers
@@ -193,8 +193,8 @@ sub process_file {
     close(TYPEMAP);
   }
 
-  foreach my $key (keys %input_expr) {
-    $input_expr{$key} =~ s/;*\s+\z//;
+  foreach my $value (values %input_expr) {
+    $value =~ s/;*\s+\z//;
   }
 
   my ($cast, $size);