From bdabb2d5e95e614c681c9c1c6a410f5f0096a4f8 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Sat, 21 May 2011 10:18:26 -0700
Subject: [PATCH] Test require override with Deparse [perl #62500]

---
 dist/B-Deparse/t/deparse.t | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/dist/B-Deparse/t/deparse.t b/dist/B-Deparse/t/deparse.t
index 802c31f..5ea240a 100644
--- a/dist/B-Deparse/t/deparse.t
+++ b/dist/B-Deparse/t/deparse.t
@@ -183,6 +183,19 @@ EOCODE
   is $deparsed, $code, 'our $funny_Unicode_chars';
 }
 
+# [perl #62500]
+$a =
+  `$^X $path "-MO=Deparse" -e "BEGIN{*CORE::GLOBAL::require=sub{1}}" 2>&1`;
+$a =~ s/-e syntax OK\n//g;
+is($a, <<'EOCODF', "CORE::GLOBAL::require override causing panick");
+sub BEGIN {
+    *CORE::GLOBAL::require = sub {
+        1;
+    }
+    ;
+}
+EOCODF
+
 done_testing();
 
 __DATA__
-- 
2.7.4