From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 23 Jan 2000 09:50:54 +0000 (+0000)
Subject: dprofpp can't find Devel::DProf::VERSION due to change#4852
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=497714249e2a0fc7fe0b96726f037048f352080d;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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!