Upgrade Devel::DProf from version 20110225.01 to 20110228.00

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 457613a..e5a03c6 100755 (executable)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -488,7 +488,7 @@ use File::Glob qw(:case);
     'Devel::DProf' =>
        {
        'MAINTAINER'    => 'rafl',
-       'DISTRIBUTION'  => 'FLORA/Devel-DProf-20110225.01.tar.gz',
+       'DISTRIBUTION'  => 'FLORA/Devel-DProf-20110228.00.tar.gz',
        'FILES'         => q[cpan/Devel-DProf],
        'EXCLUDED'      => [ qr{^t/release-} ],
        'UPSTREAM'      => 'cpan',

diff --git a/cpan/Devel-DProf/DProf.pm b/cpan/Devel-DProf/DProf.pm
index 8582050..62485a9 100644 (file)
--- a/cpan/Devel-DProf/DProf.pm
+++ b/cpan/Devel-DProf/DProf.pm
@@ -235,7 +235,7 @@ sub NONESUCH_noxs {
 
 use XSLoader ();
 
-$Devel::DProf::VERSION = '20110225.01';  # this version not authorized by
+$Devel::DProf::VERSION = '20110228.00';  # this version not authorized by
                                         # Dean Roehrich. See "Changes" file.
 
 use if $] >= 5.013, 'deprecate';

diff --git a/cpan/Devel-DProf/DProf.xs b/cpan/Devel-DProf/DProf.xs
index 4eef0bc..a4bbb4b 100644 (file)
--- a/cpan/Devel-DProf/DProf.xs
+++ b/cpan/Devel-DProf/DProf.xs
@@ -3,6 +3,11 @@
 #include "perl.h"
 #include "XSUB.h"
 
+#ifndef get_cvs
+#define get_cvs(name, flags) \
+    Perl_get_cvn_flags(aTHX_ name, sizeof(name) - 1, (flags))
+#endif
+
 /* define DBG_SUB to cause a warning on each subroutine entry. */
 /*#define DBG_SUB 1      */
 

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 2a3ad42..47f1d4b 100644 (file)
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -96,6 +96,10 @@ XXX
 
 =item *
 
+C<Devel::DProf> has been upgraded from version 20110225.01 to 20110228.00.
+
+=item *
+
 C<ExtUtils::Command> has been upgraded from version 1.16 to 1.17.
 
 =item *