| Subject: | One of the methods in TeX::Hyphen is using $& |
One of the methods in TeX::Hyphen is using $& - this ruins performance for everything in the same perl process.
Fix diff:
sub make_result_list {
my ($self, $result) = @_;
my @result = ();
my $i = 0;
- while ($result =~ /./g) {
+ while ($result =~ /(.)/g) {
- push @result, $i if (int($&) % 2);
+ push @result, $i if (int($1) % 2);
$i++;
}
@result;
}