From 9e14fb1f5a651020fa073ddc425c1bad72d1b6d7 Mon Sep 17 00:00:00 2001
From: Dan Collins <dcollinsn@gmail.com>
Date: Wed, 21 Sep 2016 10:08:26 -0400
Subject: [PATCH] t/op/blocks.t: tests for RT #113934

---
 t/op/blocks.t | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/t/op/blocks.t b/t/op/blocks.t
index 0c6e945..1673733 100644
--- a/t/op/blocks.t
+++ b/t/op/blocks.t
@@ -6,7 +6,7 @@ BEGIN {
     set_up_inc('../lib');
 }
 
-plan tests => 10;
+plan tests => 11;
 
 my @expect = qw(
 b1
@@ -156,3 +156,6 @@ TODO: {
     local $TODO = 'RT #2917: INIT{} in eval is wrongly considered too late';
     fresh_perl_is('eval "INIT { print qq(in init); };";', 'in init', {}, 'RT #2917: No constraint on how late INIT blocks can run');
 }
+
+fresh_perl_is('eval "BEGIN {goto end}"; end:', '', {}, 'RT #113934: goto out of BEGIN causes assertion failure');
+
-- 
1.8.3.1