1 files changed, 1 insertions, 1 deletions
diff --git a/sv.c b/sv.c
index e7ec8e7e7f..2ffa0cad10 100644
--- a/sv.c
+++ b/sv.c
@@ -11027,7 +11027,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     PL_origalen		= proto_perl->Iorigalen;
     PL_pidstatus	= newHV();			/* XXX flag for cloning? */
     PL_osname		= SAVEPV(proto_perl->Iosname);
-    PL_sh_path		= proto_perl->Ish_path; /* XXX never deallocated */
+    PL_sh_path_compat	= proto_perl->Ish_path_compat; /* XXX never deallocated */
     PL_sighandlerp	= proto_perl->Isighandlerp;