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 /lib | |
| parent | 91ab43aad7017b407f112aee88acfc66fad4f4fd (diff) | |
| download | circular-require-e17323538f7f49e7371f5e92bd2ab87f6a838e7d.tar.gz circular-require-e17323538f7f49e7371f5e92bd2ab87f6a838e7d.zip | |
stop loading B on demand
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/circular/require.pm | 4 |
1 files changed, 3 insertions, 1 deletions
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) |