Dgit.pm: parsecontrol: Improve error message for failed open

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

1 files changed, 1 insertions, 1 deletions

diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm
index 941bcdc..5a13e0a 100644
--- a/Debian/Dgit.pm
+++ b/Debian/Dgit.pm
@@ -651,7 +651,7 @@ sub parsecontrolfh ($$;$) {
 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;