diff options
| -rw-r--r-- | embedvar.h | 2 | ||||
| -rw-r--r-- | intrpvar.h | 1 | ||||
| -rw-r--r-- | perl.c | 1 | ||||
| -rw-r--r-- | perlapi.h | 2 | ||||
| -rw-r--r-- | sv.c | 1 |
5 files changed, 0 insertions, 7 deletions
diff --git a/embedvar.h b/embedvar.h index 50bb2c380f..8b58ae5e86 100644 --- a/embedvar.h +++ b/embedvar.h @@ -323,7 +323,6 @@ #define PL_multi_end (vTHX->Imulti_end) #define PL_multi_open (vTHX->Imulti_open) #define PL_multi_start (vTHX->Imulti_start) -#define PL_multiline (vTHX->Imultiline) #define PL_my_cxt_list (vTHX->Imy_cxt_list) #define PL_my_cxt_size (vTHX->Imy_cxt_size) #define PL_nexttoke (vTHX->Inexttoke) @@ -620,7 +619,6 @@ #define PL_Imulti_end PL_multi_end #define PL_Imulti_open PL_multi_open #define PL_Imulti_start PL_multi_start -#define PL_Imultiline PL_multiline #define PL_Imy_cxt_list PL_my_cxt_list #define PL_Imy_cxt_size PL_my_cxt_size #define PL_Inexttoke PL_nexttoke diff --git a/intrpvar.h b/intrpvar.h index 3908e5bee9..3d93793bf8 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -70,7 +70,6 @@ PERLVAR(Iformfeed, SV *) /* $^L */ PERLVARI(Imaxsysfd, I32, MAXSYSFD) /* top fd to pass to subprocesses */ -PERLVAR(Imultiline, int) /* $*--do strings hold >1 line? */ PERLVAR(Istatusvalue, I32) /* $? */ PERLVAR(Iexit_flags, U8) /* was exit() unexpected, etc. */ #ifdef VMS @@ -899,7 +899,6 @@ perl_destruct(pTHXx) SvREFCNT_dec(PL_rs); /* $/ */ PL_rs = NULL; - PL_multiline = 0; /* $* */ Safefree(PL_osname); /* $^O */ PL_osname = NULL; @@ -446,8 +446,6 @@ END_EXTERN_C #define PL_multi_open (*Perl_Imulti_open_ptr(aTHX)) #undef PL_multi_start #define PL_multi_start (*Perl_Imulti_start_ptr(aTHX)) -#undef PL_multiline -#define PL_multiline (*Perl_Imultiline_ptr(aTHX)) #undef PL_my_cxt_list #define PL_my_cxt_list (*Perl_Imy_cxt_list_ptr(aTHX)) #undef PL_my_cxt_size @@ -10907,7 +10907,6 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags, PL_formfeed = sv_dup(proto_perl->Iformfeed, param); PL_maxsysfd = proto_perl->Imaxsysfd; - PL_multiline = proto_perl->Imultiline; PL_statusvalue = proto_perl->Istatusvalue; #ifdef VMS PL_statusvalue_vms = proto_perl->Istatusvalue_vms; |