From 534bb3f4b437624e3c3e30d513a3f114632bf975 Mon Sep 17 00:00:00 2001 From: "James E. Keenan" Date: Mon, 15 Mar 2010 19:35:34 -0400 Subject: [PATCH] Rename two more instances of '$name'. --- dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm index 5c9a4bb..886c745 100644 --- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm +++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm @@ -887,9 +887,9 @@ EOF if (%XsubAliases) { $XsubAliases{$pname} = 0 unless defined $XsubAliases{$pname}; - while ( ($name, $value) = each %XsubAliases) { + while ( my ($xname, $value) = each %XsubAliases) { push(@InitFileCode, Q(<<"EOF")); -# cv = ${newXS}(\"$name\", XS_$Full_func_name, file$proto); +# cv = ${newXS}(\"$xname\", XS_$Full_func_name, file$proto); # XSANY.any_i32 = $value; EOF } @@ -901,10 +901,10 @@ EOF EOF } elsif ($interface) { - while ( ($name, $value) = each %Interfaces) { - $name = "$Package\::$name" unless $name =~ /::/; + while ( my ($yname, $value) = each %Interfaces) { + $yname = "$Package\::$yname" unless $yname =~ /::/; push(@InitFileCode, Q(<<"EOF")); -# cv = ${newXS}(\"$name\", XS_$Full_func_name, file$proto); +# cv = ${newXS}(\"$yname\", XS_$Full_func_name, file$proto); # $interface_macro_set(cv,$value); EOF } -- 2.7.4