From: Dagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Date: Thu, 9 Aug 2012 02:06:15 +0000 (+0100)
Subject: test the pre-5.8.3 weak_ref setter code on newer perls too
X-Git-Tag: v1.000003~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b777e99de452bea56b2f8a2e1b0e7c52b0b90c84;p=gitmo%2FMoo.git

test the pre-5.8.3 weak_ref setter code on newer perls too
---

diff --git a/t/accessor-weaken-pre-5_8_3.t b/t/accessor-weaken-pre-5_8_3.t
new file mode 100644
index 0000000..03572a4
--- /dev/null
+++ b/t/accessor-weaken-pre-5_8_3.t
@@ -0,0 +1,13 @@
+use strictures 1;
+use Moo::_Utils;
+
+BEGIN {
+  no warnings 'redefine';
+  *Moo::_Utils::lt_5_8_3 = sub () { 1 };
+}
+
+(my $real_test = __FILE__) =~ s/-pre-5_8_3//;
+
+do $real_test;
+die $@ if $@;
+die $! if $!;