diff options
Diffstat (limited to 'utils/dprofpp.PL')
| -rw-r--r-- | utils/dprofpp.PL | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/utils/dprofpp.PL b/utils/dprofpp.PL index 1ef0b19c48..d04f61dc44 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>){ |