summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2000-07-26 16:05:30 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2000-07-26 16:05:30 +0000
commiteae9c1515e21a0ce7cdb8dfed3c4386402d77e42 (patch)
tree99b7d39b797f98c0eb08c80930fe0de1c59030bf /pp_ctl.c
parent1ec94568ca12249aa865999d7dec5eb1fa3123c7 (diff)
downloadperl-eae9c1515e21a0ce7cdb8dfed3c4386402d77e42.tar.gz
MacOS nits from Matthias Neeracher.
p4raw-id: //depot/perl@6442
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 776754e61c..ce9e1984a7 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3158,8 +3158,8 @@ trylocal: {
else {
char *dir = SvPVx(dirsv, n_a);
#ifdef MACOS_TRADITIONAL
- /* We have ensured in incpush that library ends with ':' */
- Perl_sv_setpvf(aTHX_ namesv, "%s%s", dir, name+(name[0] == ':'));
+ char buf[256];
+ Perl_sv_setpvf(aTHX_ namesv, "%s%s", MacPerl_CanonDir(dir, buf), name+(name[0] == ':'));
#else
#ifdef VMS
char *unixdir;