This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove old variable needed for binary compatibility
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 29 Jun 2005 08:11:53 +0000 (08:11 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 29 Jun 2005 08:11:53 +0000 (08:11 +0000)
p4raw-id: //depot/perl@25008

embedvar.h
intrpvar.h
perlapi.h
sv.c

index 985e015..56fd726 100644 (file)
 #define PL_runops_std          (vTHX->Irunops_std)
 #define PL_savebegin           (vTHX->Isavebegin)
 #define PL_sawampersand                (vTHX->Isawampersand)
 #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)
 #define PL_sharehook           (vTHX->Isharehook)
 #define PL_sig_pending         (vTHX->Isig_pending)
 #define PL_sighandlerp         (vTHX->Isighandlerp)
 #define PL_Irunops_std         PL_runops_std
 #define PL_Isavebegin          PL_savebegin
 #define PL_Isawampersand       PL_sawampersand
 #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
 #define PL_Isharehook          PL_sharehook
 #define PL_Isig_pending                PL_sig_pending
 #define PL_Isighandlerp                PL_sighandlerp
index 519093f..b69999a 100644 (file)
@@ -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 */
 
 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 */
 PERLVAR(Isighandlerp,  Sighandler_t)
 
 PERLVAR(Ixnv_root,     NV *)           /* free xnv list */
index d4633b6..a9c3c25 100644 (file)
--- 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))
 #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
 #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 (file)
--- 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_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_sighandlerp     = proto_perl->Isighandlerp;
 
-
     PL_runops          = proto_perl->Irunops;
 
     Copy(proto_perl->Itokenbuf, PL_tokenbuf, 256, char);
     PL_runops          = proto_perl->Irunops;
 
     Copy(proto_perl->Itokenbuf, PL_tokenbuf, 256, char);