| $only_for_interior_links_re
/x)
{
- $digest->add($contents);
+ my $byte_contents = $contents;
+ utf8::encode($byte_contents);
+ $digest->add($byte_contents); # Doesn't handle Unicode
$digests{$filename} = $digest->digest;
# lib files aren't analyzed if they are duplicates of files copied
# If the return is undef, it means that $filename was a transitory
# file; skip it.
next FILE unless defined $contents;
- $digest->add($contents);
+ my $byte_contents = $contents;
+ utf8::encode($byte_contents);
+ $digest->add($byte_contents); # Doesn't handle Unicode
$id = $digest->digest;
}