diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-01-06 11:07:33 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-01-06 11:08:05 -0600 |
commit | e17323538f7f49e7371f5e92bd2ab87f6a838e7d (patch) | |
tree | 9348debfc217a9e0373c205f2fe70d12753ff9d2 | |
parent | 91ab43aad7017b407f112aee88acfc66fad4f4fd (diff) | |
download | circular-require-e17323538f7f49e7371f5e92bd2ab87f6a838e7d.tar.gz circular-require-e17323538f7f49e7371f5e92bd2ab87f6a838e7d.zip |
stop loading B on demand
-rw-r--r-- | Changes | 1 | ||||
-rw-r--r-- | lib/circular/require.pm | 4 |
2 files changed, 4 insertions, 1 deletions
@@ -1,6 +1,7 @@ Revision history for circular-require {{$NEXT}} + - loading B on demand causes issues, stop doing that 0.07 2012-01-06 - make this module use dynamic scope rather than being entirely global 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) |