Include both attribute name and init_arg in constructor errors (RT#79596)

[gitmo/Moo.git] / t / accessor-weaken-pre-5_8_3.t

diff --git a/t/accessor-weaken-pre-5_8_3.t b/t/accessor-weaken-pre-5_8_3.t
index 03572a4..8505a48 100644 (file)
--- a/t/accessor-weaken-pre-5_8_3.t
+++ b/t/accessor-weaken-pre-5_8_3.t
@@ -8,6 +8,7 @@ BEGIN {
 
 (my $real_test = __FILE__) =~ s/-pre-5_8_3//;
 
-do $real_test;
-die $@ if $@;
-die $! if $!;
+unless (defined do $real_test) {
+    die "$real_test: $@" if $@;
+    die "$real_test: $!" if $!;
+}