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 (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 $!;
+}

diff --git a/t/method-generate-accessor.t b/t/method-generate-accessor.t
index 256cc5c..74a6aae 100644 (file)
--- 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 {} }
 }