| Subject: | filehandle is not closed |
After reading patterns from a file the filehandle is never closed. The
code that should do that is "close FILE if not defined $file;", which
seems to have one negation too many.
This bug means hyphenation won't work if you instantiate two objects in
the same program:
my $hyp1 = TeX::Hyphen->new('file.tex');
my $res1 = $hyp1->visualize('representative');
my $hyp2 = TeX::Hyphen->new('file.tex');
my $res2 = $hyp2->visualize('representative');
die "$res2 should be equal to $res1" unless $res1 eq $res2;