diff --git a/lib/DDG/Goodie/Xor.pm b/lib/DDG/Goodie/Xor.pm index 866c894cf..15bb782b2 100644 --- a/lib/DDG/Goodie/Xor.pm +++ b/lib/DDG/Goodie/Xor.pm @@ -11,7 +11,7 @@ handle query_raw => sub { my @nums = grep(!/(xor|⊕)/, split(/\s+(⊕|xor)\s+/i, $_)); my $num = 0; foreach (@nums) { - $num ^= ord(chr($_)) if /^\d+$/; + $num ^= $_ if /^\d+$/; return unless /^\d+$/; } return "$num" if $num;