PL_multiline isn't referenced, and can be removed.

p4raw-id: //depot/perl@27602

diff --git a/embedvar.h b/embedvar.h
index 50bb2c3..8b58ae5 100644 (file)
--- 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 3908e5b..3d93793 100644 (file)
--- 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

diff --git a/perl.c b/perl.c
index 2ffbb17..a98314b 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -899,7 +899,6 @@ perl_destruct(pTHXx)
     SvREFCNT_dec(PL_rs);       /* $/ */
     PL_rs = NULL;
 
-    PL_multiline = 0;          /* $* */
     Safefree(PL_osname);       /* $^O */
     PL_osname = NULL;
 

diff --git a/perlapi.h b/perlapi.h
index b275264..3871efd 100644 (file)
--- a/perlapi.h
+++ b/perlapi.h
@@ -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

diff --git a/sv.c b/sv.c
index 3aa9108..dc4bc5c 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -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;