TEST: add error message when file open fails
@@ -33,7 +33,7 @@ BEGIN {
use Test::More tests => scalar(@files);
foreach my $f (@files) {
- open(my $fh, $f) or die;
+ open(my $fh, $f) or die "$f (failed file open)";
my $before = do { local $/; <$fh>; };
close ($fh);
my $after = $before;
