fixed xor_encode formatting

mojolicious · Sep 5, 2012 · 23b5829 · 23b5829
1 parent 2d31456
commit 23b5829
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/lib/Mojo/Util.pm b/lib/Mojo/Util.pm
@@ -324,11 +324,11 @@ sub xml_escape {
 
 sub xor_encode {
   my ($input, $key) = @_;
-  my $len    = length $key;
-  my $tmp = '';
-  my $output = '';
-  $output .= $tmp ^ $key while length($tmp = substr($input, 0, $len, '')) == $len;
-  return $output .= $tmp ^ substr($key, 0, length $tmp, '');
+  my $len = length $key;
+  my $buffer = my $output = '';
+  $output .= $buffer ^ $key
+    while length($buffer = substr($input, 0, $len, '')) == $len;
+  return $output .= $buffer ^ substr($key, 0, length $buffer, '');
 }
 
 sub _adapt {