t/perf/benchmarks.t: improve do error checks

Make the checks for "do 't/perf/benchmarks'" look more like those
suggested for 'do' in perlfunc.

In particular, this may help track down the issue in RT #133663.

1 files changed, 7 insertions, 2 deletions

diff --git a/t/perf/benchmarks.t b/t/perf/benchmarks.t
index 57dbcf8793..9babda3b01 100644
--- a/t/perf/benchmarks.t
+++ b/t/perf/benchmarks.t
@@ -15,8 +15,13 @@ use strict;
 
 my $file = 'perf/benchmarks';
 my $benchmark_array = do $file;
-die $@ if $@;
-die "$! while trying to read '$file'" if $!;
+unless ($benchmark_array) {
+    die "Error while parsing '$file': $@\n" if $@;
+    die "Error while trying to read '$file': $!"
+        unless defined $benchmark_array;
+    die "Unknown error running '$file'\n";
+}
+
 die "'$file' did not return an array ref\n"
         unless ref $benchmark_array eq 'ARRAY';