X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=utils%2Fdprofpp.PL;h=d04f61dc44bae2ab2440cdc3d81a88d30718ebf7;hb=d5201bd266fe42b2df8b480183c08be291a1ad06;hp=1ef0b19c4802d620432c77a4ce98991c84f2a768;hpb=83943eac2433a9cd52f114532df2a61529f109a2;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/utils/dprofpp.PL b/utils/dprofpp.PL
index 1ef0b19..d04f61d 100644
--- a/utils/dprofpp.PL
+++ b/utils/dprofpp.PL
@@ -2,6 +2,7 @@
 
 use Config;
 use File::Basename qw(&basename &dirname);
+use File::Spec;
 
 # List explicitly here the variables you want Configure to
 # generate.  Metaconfig only looks for shell variables, so you
@@ -17,7 +18,7 @@ chdir(dirname($0));
 $file =~ s/\.pl$// if ($Config{'osname'} eq 'OS2');      # "case-forgiving"
 $file =~ s/\.pl$/.com/ if ($Config{'osname'} eq 'VMS');  # "case-forgiving"
 
-my $dprof_pm = '../ext/Devel/DProf/DProf.pm';
+my $dprof_pm = File::Spec->catfile(File::Spec->updir, 'ext', 'Devel', 'DProf', 'DProf.pm');
 my $VERSION = 0;
 open( PM, "<$dprof_pm" ) || die "Can't open $dprof_pm: $!";
 while(<PM>){