From 9dc0b5dcb80b5128172acb8c4bd670aa72142821 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Wed, 29 Jun 2005 08:11:53 +0000 Subject: [PATCH] Remove old variable needed for binary compatibility p4raw-id: //depot/perl@25008 --- embedvar.h | 2 -- intrpvar.h | 3 --- perlapi.h | 2 -- sv.c | 2 -- 4 files changed, 9 deletions(-) diff --git a/embedvar.h b/embedvar.h index 985e015..56fd726 100644 --- a/embedvar.h +++ b/embedvar.h @@ -376,7 +376,6 @@ #define PL_runops_std (vTHX->Irunops_std) #define PL_savebegin (vTHX->Isavebegin) #define PL_sawampersand (vTHX->Isawampersand) -#define PL_sh_path_compat (vTHX->Ish_path_compat) #define PL_sharehook (vTHX->Isharehook) #define PL_sig_pending (vTHX->Isig_pending) #define PL_sighandlerp (vTHX->Isighandlerp) @@ -680,7 +679,6 @@ #define PL_Irunops_std PL_runops_std #define PL_Isavebegin PL_savebegin #define PL_Isawampersand PL_sawampersand -#define PL_Ish_path_compat PL_sh_path_compat #define PL_Isharehook PL_sharehook #define PL_Isig_pending PL_sig_pending #define PL_Isighandlerp PL_sighandlerp diff --git a/intrpvar.h b/intrpvar.h index 519093f..b69999a 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -243,9 +243,6 @@ PERLVAR(Ipidstatus, HV *) /* pid-to-status mappings for waitpid */ PERLVARI(Imaxo, int, MAXO) /* maximum number of ops */ PERLVAR(Iosname, char *) /* operating system */ -/* For binary compatibility with older versions only */ -PERLVARI(Ish_path_compat, const char *, SH_PATH)/* full path of shell */ - PERLVAR(Isighandlerp, Sighandler_t) PERLVAR(Ixnv_root, NV *) /* free xnv list */ diff --git a/perlapi.h b/perlapi.h index d4633b6..a9c3c25 100644 --- a/perlapi.h +++ b/perlapi.h @@ -548,8 +548,6 @@ END_EXTERN_C #define PL_savebegin (*Perl_Isavebegin_ptr(aTHX)) #undef PL_sawampersand #define PL_sawampersand (*Perl_Isawampersand_ptr(aTHX)) -#undef PL_sh_path_compat -#define PL_sh_path_compat (*Perl_Ish_path_compat_ptr(aTHX)) #undef PL_sharehook #define PL_sharehook (*Perl_Isharehook_ptr(aTHX)) #undef PL_sig_pending diff --git a/sv.c b/sv.c index 96a1e88..03a2589 100644 --- a/sv.c +++ b/sv.c @@ -11563,10 +11563,8 @@ 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_compat = proto_perl->Ish_path_compat; /* XXX never deallocated */ PL_sighandlerp = proto_perl->Isighandlerp; - PL_runops = proto_perl->Irunops; Copy(proto_perl->Itokenbuf, PL_tokenbuf, 256, char); -- 2.7.4