diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-01-09 01:11:30 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-01-09 01:16:43 -0600 |
commit | 0fcb900a2751dc472437a9bf643e285fd07ca203 (patch) | |
tree | 75f6d0357c9ea7a16ecb87fbe2a6268fe8333881 | |
parent | cbb2da0f000bc4d51bc275a7fd95dd822c8754d8 (diff) | |
download | circular-require-0fcb900a2751dc472437a9bf643e285fd07ca203.tar.gz circular-require-0fcb900a2751dc472437a9bf643e285fd07ca203.zip |
use the non-deprecated forms
-rw-r--r-- | Changes | 1 | ||||
-rw-r--r-- | lib/circular/require.pm | 4 |
2 files changed, 3 insertions, 2 deletions
@@ -1,6 +1,7 @@ Revision history for circular-require {{$NEXT}} + - stop using deprecated Package::Stash api 0.09 2012-01-07 - fix some bugs in require VERSION when circular::require is loaded diff --git a/lib/circular/require.pm b/lib/circular/require.pm index b6a5c95..5c0ee4b 100644 --- a/lib/circular/require.pm +++ b/lib/circular/require.pm @@ -150,10 +150,10 @@ sub unimport { @hide = map { /\.pm$/ ? $_ : _mod2pm($_) } @hide; my $stash = Package::Stash->new('CORE::GLOBAL'); - my $old_require = $stash->get_package_symbol('&require'); + my $old_require = $stash->get_symbol('&require'); $saved_require_hook = $old_require if defined($old_require) && $old_require != \&_require; - $stash->add_package_symbol('&require', \&_require); + $stash->add_symbol('&require', \&_require); $^H{'circular::require'} = 1; } |