Deparse CORE::break

[perl5.git] / dist / B-Deparse / t / deparse.t

diff --git a/dist/B-Deparse/t/deparse.t b/dist/B-Deparse/t/deparse.t
index 6864dae..18ab953 100644 (file)
--- a/dist/B-Deparse/t/deparse.t
+++ b/dist/B-Deparse/t/deparse.t
@@ -752,6 +752,6 @@ CORE::given ($x) {
         continue;
     }
     CORE::default {
-        die;
+        CORE::break;
     }
 }