diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-20 07:56:19 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-20 07:56:19 +0000 |
| commit | 51e5ddcf11fb0f6bb47e63ed55c7ffc82e8891e9 (patch) | |
| tree | 259097dd1c11443e47144025df17e7e867c87ac2 /utils/dprofpp.PL | |
| parent | 95667ae449650939b6e6a521264f3846244da96a (diff) | |
| download | perl-51e5ddcf11fb0f6bb47e63ed55c7ffc82e8891e9.tar.gz | |
another DProf build tweak
p4raw-id: //depot/perl@3711
Diffstat (limited to 'utils/dprofpp.PL')
| -rw-r--r-- | utils/dprofpp.PL | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/utils/dprofpp.PL b/utils/dprofpp.PL index c5130629f4..451b8bf11d 100644 --- a/utils/dprofpp.PL +++ b/utils/dprofpp.PL @@ -18,21 +18,19 @@ $file =~ s/\.pl$// if ($Config{'osname'} eq 'VMS' or $Config{'osname'} eq 'OS2'); # "case-forgiving" -print "Pulling version from Makefile for dprofpp...\n"; +my $dprof_pm = '../ext/Devel/DProf/DProf.pm'; my $VERSION = 0; -open( MK, "<Makefile" ) || die "Can't open Makefile: $!"; -while(<MK>){ - if( /^VERSION\s*=\s*(\d+)/ ){ +open( PM, "<$dprof_pm" ) || die "Can't open $dprof_pm: $!"; +while(<PM>){ + if( /^\$Devel::DProf::VERSION\s*=\s*'(\d+)'/ ){ $VERSION = $1; last; } } -close MK; +close PM; if( $VERSION == 0 ){ - die "Did not find VERSION in Makefile"; + die "Did not find VERSION in $dprof_pm"; } -print " version is ($VERSION).\n"; - open OUT,">$file" or die "Can't create $file: $!"; print "Extracting $file (with variable substitutions)\n"; |