X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faccessor-weaken-pre-5_8_3.t;h=a0f9b1d7fb31a7ce2afb127f106f5cce37a5346f;hb=a6d0da2fc8dbf846b6dce694af7bdc4a8c440376;hp=03572a4550a34a0a3393e3a5cd8165c844096fd8;hpb=b777e99de452bea56b2f8a2e1b0e7c52b0b90c84;p=gitmo%2FMoo.git

diff --git a/t/accessor-weaken-pre-5_8_3.t b/t/accessor-weaken-pre-5_8_3.t
index 03572a4..a0f9b1d 100644
--- a/t/accessor-weaken-pre-5_8_3.t
+++ b/t/accessor-weaken-pre-5_8_3.t
@@ -1,13 +1,12 @@
 use strictures 1;
-use Moo::_Utils;
 
 BEGIN {
-  no warnings 'redefine';
-  *Moo::_Utils::lt_5_8_3 = sub () { 1 };
+  $ENV{MOO_TEST_PRE_583} = 1;
 }
 
 (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 $!;
+}