diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-31 21:42:12 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-31 21:42:12 +0000 |
| commit | d5201bd266fe42b2df8b480183c08be291a1ad06 (patch) | |
| tree | e7f719e75b91b93f6b813831b273f6d3dca6c15e /utils | |
| parent | 83943eac2433a9cd52f114532df2a61529f109a2 (diff) | |
| download | perl-d5201bd266fe42b2df8b480183c08be291a1ad06.tar.gz | |
Integrate macperl patches #16926 and #16938;
Big MacPerl Testing Patch No. 2
Big MacPerl Testing Patch No. 3
p4raw-id: //depot/perl@16942
p4raw-integrated: from //depot/macperl@16937 'copy in'
lib/Devel/SelfStubber.pm lib/Devel/SelfStubber.t
lib/File/DosGlob.t lib/File/Path.t lib/File/Spec/t/Spec.t
lib/File/Temp.pm lib/FindBin.t lib/Tie/File/t/09_gen_rs.t
lib/lib.t t/comp/use.t utils/dprofpp.PL utils/splain.PL
(@16123..) t/lib/MakeMaker/Test/Utils.pm (@16230..)
lib/diagnostics.t (@16646..) lib/ExtUtils/t/00setup_dummy.t
lib/ExtUtils/t/Command.t (@16730..) lib/lib_pm.PL (@16926..)
lib/ExtUtils/MM_MacOS.pm lib/Test/Harness/Straps.pm
lib/Test/Harness/t/callback.t
lib/Test/Harness/t/strap-analyze.t
lib/Test/Harness/t/test-harness.t (@16929..)
p4raw-integrated: from //depot/macperl@16926 'merge in' lib/English.t
(@16123..) ext/DynaLoader/DynaLoader_pm.PL (@16868..)
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/dprofpp.PL | 3 | ||||
| -rw-r--r-- | utils/splain.PL | 3 |
2 files changed, 4 insertions, 2 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>){ diff --git a/utils/splain.PL b/utils/splain.PL index a638dbae71..9c70b61afd 100644 --- a/utils/splain.PL +++ b/utils/splain.PL @@ -2,6 +2,7 @@ use Config; use File::Basename qw(&basename &dirname); +use File::Spec; use Cwd; # List explicitly here the variables you want Configure to @@ -20,7 +21,7 @@ $file = basename($0, '.PL'); $file .= '.com' if $^O eq 'VMS'; # Open input file before creating output file. -$IN = '../lib/diagnostics.pm'; +$IN = File::Spec->catfile(File::Spec->updir, 'lib', 'diagnostics.pm'); open IN or die "Can't open $IN: $!\n"; # Create output file. |