From: Dagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Date: Thu, 9 Aug 2012 13:36:47 +0000 (+0100)
Subject: fix tests properly for 5.8 (yay perlbrew)
X-Git-Tag: v1.000003~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3667e536293f43027602c1513b28fe80296a30d8;p=gitmo%2FMoo.git

fix tests properly for 5.8 (yay perlbrew)
---

diff --git a/t/accessor-weaken-pre-5_8_3.t b/t/accessor-weaken-pre-5_8_3.t
index 03572a4..8505a48 100644
--- 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 $!;
+}
diff --git a/t/method-generate-accessor.t b/t/method-generate-accessor.t
index 256cc5c..74a6aae 100644
--- a/t/method-generate-accessor.t
+++ b/t/method-generate-accessor.t
@@ -13,7 +13,7 @@ my $gen = Method::Generate::Accessor->new;
 
 {
   package WithOverload;
-  use overload '&{}' => sub { sub { 5 } };
+  use overload '&{}' => sub { sub { 5 } }, fallback => 1;
   sub new { bless {} }
 }