dprofpp can't find Devel::DProf::VERSION due to change#4852

p4raw-link: @4852 on //depot/perl: 117c97cc8bc4f8d1e649a798c680208c2e87c6d9

p4raw-id: //depot/perl@4856

diff --git a/utils/dprofpp.PL b/utils/dprofpp.PL
index ba099c0..a6a1d91 100644 (file)
--- a/utils/dprofpp.PL
+++ b/utils/dprofpp.PL
@@ -22,7 +22,7 @@ my $dprof_pm = '../ext/Devel/DProf/DProf.pm';
 my $VERSION = 0;
 open( PM, "<$dprof_pm" ) || die "Can't open $dprof_pm: $!";
 while(<PM>){
-       if( /^\$Devel::DProf::VERSION\s*=\s*'(\d+)'/ ){
+       if( /^\$Devel::DProf::VERSION\s*=\s*'([\d._]+)'/ ){
                $VERSION = $1;
                last;
        }
@@ -45,7 +45,7 @@ $Config{'startperl'}
 
 require 5.003;
 
-my \$VERSION = $VERSION;
+my \$VERSION = '$VERSION';
 
 !GROK!THIS!