From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 29 Jun 2005 08:11:53 +0000 (+0000)
Subject: Remove old variable needed for binary compatibility
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9dc0b5dcb80b5128172acb8c4bd670aa72142821;p=p5sagit%2Fp5-mst-13.2.git

Remove old variable needed for binary compatibility

p4raw-id: //depot/perl@25008
---

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);