diff options
author | Florian Ragwitz <rafl@debian.org> | 2011-02-18 20:06:55 +0100 |
---|---|---|
committer | Florian Ragwitz <rafl@debian.org> | 2011-02-18 20:06:55 +0100 |
commit | c47eb99831d540534bc11512d922080780665b82 (patch) | |
tree | d80b435e392256c411ef7548bd221a1802df3d18 /ext | |
parent | 33d7e9f6ca42cd5e6c2720ef0e6e0aa713f0c0e0 (diff) | |
download | perl-c47eb99831d540534bc11512d922080780665b82.tar.gz |
Don't call the new __loaded_from_core on old perls
On perls that don't have deprecate::__loaded_from_core yet, dprofpp isn't
deprecated yet, so all is good.
Diffstat (limited to 'ext')
-rw-r--r-- | ext/Devel-DProf/bin/dprofpp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Devel-DProf/bin/dprofpp b/ext/Devel-DProf/bin/dprofpp index f529b8cb28..51d0ed9d9b 100644 --- a/ext/Devel-DProf/bin/dprofpp +++ b/ext/Devel-DProf/bin/dprofpp @@ -15,8 +15,8 @@ BEGIN { require Devel::DProf; require deprecate; -if(deprecate::__loaded_from_core('Devel::DProf', $INC{'Devel/DProf.pm'}, - 'Devel/DProf.pm')) { +if($] > 5.013009 && deprecate::__loaded_from_core('Devel::DProf', $INC{'Devel/DProf.pm'}, + 'Devel/DProf.pm')) { warn "dprofpp will be removed from the Perl core distribution in the next major release. Please install Devel::DProf from CPAN.\n"; } |