X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pp_ctl.c;h=ce9e1984a7a285f60a9b73e181f46b2560358006;hb=355b129945f44493ff7efa1481d95ddca2d2f87f;hp=776754e61cf6b406f07aa3fe3da581ba59b7d206;hpb=18ef8beac527ca204cb2b7f96c5a4c585c8ee174;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pp_ctl.c b/pp_ctl.c
index 776754e..ce9e198 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;