diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-02-18 18:19:45 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-02-18 18:21:12 +0000 |
| commit | 33d7e9f6ca42cd5e6c2720ef0e6e0aa713f0c0e0 (patch) | |
| tree | 46e6e824e60d76b435774a5411d635d0a99452aa /ext | |
| parent | 4ffaa343250c0abd2cc3ba7ebf2cf89f8b8783cb (diff) | |
| download | perl-33d7e9f6ca42cd5e6c2720ef0e6e0aa713f0c0e0.tar.gz | |
Remove Devel::DProf from the core distribution. Get it from CPAN now.
Recommend Devel::NYTProf over Devel::DProf.
[Devel::DProf isn't actually on CPAN quite yet, but will be well before 5.14.0
"escapes"]
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Devel-DProf/DProf.pm | 2 | ||||
| -rw-r--r-- | ext/Devel-DProf/bin/dprofpp | 9 |
2 files changed, 10 insertions, 1 deletions
diff --git a/ext/Devel-DProf/DProf.pm b/ext/Devel-DProf/DProf.pm index 384158af99..7f6d4cc290 100644 --- a/ext/Devel-DProf/DProf.pm +++ b/ext/Devel-DProf/DProf.pm @@ -235,6 +235,8 @@ use XSLoader (); $Devel::DProf::VERSION = '20110217.00'; # this version not authorized by # Dean Roehrich. See "Changes" file. +use if $] >= 5.013, 'deprecate'; + sub import { XSLoader::load 'Devel::DProf', $Devel::DProf::VERSION; } diff --git a/ext/Devel-DProf/bin/dprofpp b/ext/Devel-DProf/bin/dprofpp index 47b9bf5869..f529b8cb28 100644 --- a/ext/Devel-DProf/bin/dprofpp +++ b/ext/Devel-DProf/bin/dprofpp @@ -12,6 +12,14 @@ BEGIN { } } +require Devel::DProf; +require deprecate; + +if(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"; +} + =head1 NAME dprofpp - display perl profile data @@ -356,7 +364,6 @@ Setup: { } if( defined $opt_V ){ - require Devel::DProf; my $fh = 'main::fh'; print "$0 version: $Devel::DProf::VERSION\n"; open( $fh, "<$Monfile" ) && do { |