Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
sub parsecontrol {
my ($file, $desc, $allowsigned) = @_;
my $fh = new IO::Handle;
sub parsecontrol {
my ($file, $desc, $allowsigned) = @_;
my $fh = new IO::Handle;
- open $fh, '<', $file or die "$file: $!";
+ open $fh, '<', $file or fail "open $file ($desc): $!";
my $c = parsecontrolfh($fh,$desc,$allowsigned);
$fh->error and confess $!;
close $fh;
my $c = parsecontrolfh($fh,$desc,$allowsigned);
$fh->error and confess $!;
close $fh;