From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 25 Mar 2006 14:46:09 +0000 (+0000)
Subject: PL_multiline isn't referenced, and can be removed.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7a94669413c085c03aa0b9495a9667ad7332c115;p=p5sagit%2Fp5-mst-13.2.git

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