diff --git a/t/29_cppcomments.t b/t/29_cppcomments.t index e4b88db..040c083 100644 --- a/t/29_cppcomments.t +++ b/t/29_cppcomments.t @@ -8,7 +8,6 @@ BEGIN { use Test::More; use t::lib::Test; -use Fatal qw(open); my @c_files = (<*.c>, <*.h>, <*.xs>); plan tests => scalar(@c_files); @@ -20,7 +19,7 @@ foreach my $file (@c_files) { next; } - open my $fh, '<', $file; + open my $fh, '<', $file or die "$file: $!"; my $line = 0; while (<$fh>) { $line++;