| Subject: | Attempt to read a file after file fails to open |
If the file doesn't exist (for example) you'll get a message like this:
readline() on closed filehandle F at /usr/share/perl5/Text/Diff.pm line 64.
code:
local $/ = "\n";
open F, "<$seq" or carp "$!: $seq";
$seqs[$i] = [<F>];
close F;