Properly propagate exceptions when a free callback dies at the end of eval

[perl/modules/Variable-Magic.git] / t / 15-self.t

diff --git a/t/15-self.t b/t/15-self.t
index a205ea51e1e1414da6d968244a0495ede4ec1f38..0550dc4adae5fe7927b49ed9bd1935123e70196a 100644 (file)
--- a/t/15-self.t
+++ b/t/15-self.t
@@ -162,10 +162,7 @@ my $c = 0;
      }
 
      if ($die) {
-      SKIP: {
-       skip 'error not propagated' => 1 if $magic eq 'free';
-       like $err, qr/^oops at/, "$desc: correct error";
-      }
+      like $err, qr/^oops at/, "$desc: correct error";
       is $res, undef, "$desc: returned undef";
      } else {
       is $err, '', "$desc: no error";