From e17323538f7f49e7371f5e92bd2ab87f6a838e7d Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 6 Jan 2012 11:07:33 -0600
Subject: stop loading B on demand

---
 lib/circular/require.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/circular/require.pm b/lib/circular/require.pm
index f80c035..881aec7 100644
--- a/lib/circular/require.pm
+++ b/lib/circular/require.pm
@@ -4,6 +4,9 @@ use warnings;
 # ABSTRACT: detect circularity in use/require statements
 
 use Package::Stash;
+# XXX would be nice to load this on demand, but "on demand" is within the
+# require override, which causes a mess (on pre-5.14)
+use B;
 
 =head1 SYNOPSIS
 
@@ -110,7 +113,6 @@ sub _require {
     # but we're not in an eval anymore
     # fake it up so that this looks the same
     if (defined((caller(1))[6])) {
-        require B;
         my $str = B::perlstring($file);
         $ret = $saved_require_hook
             ? $saved_require_hook->($file)
-- 
cgit v1.2.3-54-g00ecf