From: Dagfinn Ilmari Mannsåker 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 $!;