X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlapi.h;h=0b8e6de6bf3ded0983572bfdea44a31c42fb3462;hb=5c728af092d5febae92774d9106a235643cb49e5;hp=60d0b5f0e4d0943adc709f11af3c2c814c72a641;hpb=4c79ee7a1e7564ef83d0ac25d6677fdebb3ec7aa;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perlapi.h b/perlapi.h
index 60d0b5f..0b8e6de 100644
--- a/perlapi.h
+++ b/perlapi.h
@@ -490,8 +490,8 @@ END_EXTERN_C
 #define PL_savebegin		(*Perl_Isavebegin_ptr(aTHX))
 #undef  PL_sawampersand
 #define PL_sawampersand		(*Perl_Isawampersand_ptr(aTHX))
-#undef  PL_sh_path
-#define PL_sh_path		(*Perl_Ish_path_ptr(aTHX))
+#undef  PL_sh_path_compat
+#define PL_sh_path_compat	(*Perl_Ish_path_compat_ptr(aTHX))
 #undef  PL_sig_pending
 #define PL_sig_pending		(*Perl_Isig_pending_ptr(aTHX))
 #undef  PL_sighandlerp
@@ -928,6 +928,8 @@ END_EXTERN_C
 #define PL_runops_dbg		(*Perl_Grunops_dbg_ptr(NULL))
 #undef  PL_runops_std
 #define PL_runops_std		(*Perl_Grunops_std_ptr(NULL))
+#undef  PL_sh_path
+#define PL_sh_path		(*Perl_Gsh_path_ptr(NULL))
 #undef  PL_sharehook
 #define PL_sharehook		(*Perl_Gsharehook_ptr(NULL))
 #undef  PL_thr_key