avoid special variable $b

mojolicious · Jun 27, 2015 · 82f200b · 82f200b
1 parent caa15a1
commit 82f200b
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/Mojo/Util.pm b/lib/Mojo/Util.pm
@@ -175,8 +175,8 @@ sub punycode_encode {
   my @input = map {ord} split '', $output;
   my @chars = sort grep { $_ >= PC_INITIAL_N } @input;
   $output =~ s/[^\x00-\x7f]+//gs;
-  my $h = my $b = length $output;
-  $output .= "\x2d" if $b > 0;
+  my $h = my $basic = length $output;
+  $output .= "\x2d" if $basic > 0;
 
   for my $m (@chars) {
     next if $m < $n;
@@ -201,7 +201,7 @@ sub punycode_encode {
         }
 
         $output .= chr $q + ($q < 26 ? 0x61 : 0x30 - 26);
-        $bias = _adapt($delta, $h + 1, $h == $b);
+        $bias = _adapt($delta, $h + 1, $h == $basic);
         $delta = 0;
         $h++;
       }