descriptive errors for t/whitespace.t

1 files changed, 1 insertions, 1 deletions

diff --git a/t/whitespace.t b/t/whitespace.t
index 22c610c..f3629ab 100755
--- a/t/whitespace.t
+++ b/t/whitespace.t
@@ -29,7 +29,7 @@ BEGIN {
 use Test::More tests => scalar(@files);
 
 foreach my $f (@files) {
-    open(my $fh, $f) or die;
+    open(my $fh, $f) or die "Cannot open file $f: $!";
     my $before = do { local $/; <$fh>; };
     close ($fh);
     my $after = $before;